✔ VBA-Kentnisse eingerostet

[Grafixboy]

VBA-Kentnisse eingerostet Brauche eure Hilfe!

Hallo habe mal eine Frage.

Ich weiß das es in Outlook die möglichkeit gab eigene Symbole anzulegen und diese mit Funktionen zu belegen.

Weiß nur nicht mehr wie das geht. Dies ist wissen was ich lange nicht mehrbenötigt habe
und deshalb ziemlich eingerostet ist. :-(

Will eigentlich nur ein Symbol anlegen welches mir dann in das Textfeld (in Outlook), in welchem sich der Curser befindet, mir da die Uhrzeit hineinschreibt.

So hatte ich das mal gelesen und selbst gemacht nur wie?
"Auf diese Weise können Sie sogar selbst erstellte Makros mit einem
neuen Symbol versehen und per einfachem Mausklick verfügbar
machen."

Im Anhang seht ihr nochmal wie ich mir das gedacht habe.

Ich danke schon mal recht herzlich.

Gruß @ all

 

[Grafixboy]

Weil ich noch keine Antwort bekommen habe, habe ich oben mal ein Screenshot hinzugefügt. Ich hoffe damit wird mein Wunsch deutlicher.
Kann ja sein das ich mich undeutlich Ausgedrückt habe oder benutzen die meisten VBA wirklich nur im zusammenhang mit EXCEL und WORD.
Brauche es aber nunmal für OUTLOOK.


Ein Dickes Danke für den der sich reinfitzt.

 

[Grafixboy]

Ok wie ich das Symbol dahinbekomme weiß ich mitlerweile wieder.
Mann muss das Programmierte Makro als Modul erstellt haben. Dann kann ich es auch unter Extras/Anpassen dann in den Reiter Befehle Makro auswählen und dann reinziehen und auf Wunsch Symbol ändern. Dies kann ich sowohl in eigene erstellte Symbolleisten als auch in schon vorhandene.
Solangsam artet das in eine Art selbstgespräch aus.

Wenn mir jetzt jemand sagen könnte wie ich an der Aktuellen Kurserposition mir mit Date das Datum hineinschreiben lassen kann wäre das super nett fühle mivh hier ganz allein gelassen.

MfG

 

[Grafixboy]

Kann nicht mal jemand Antworten ob das überhaubt möglich ist?
Sorry

 

[thekorn]

Ja doch, GEDULD!

Folgendes Makro tuts:

Public Sub ausfgabe()
    Set myOlApp = CreateObject("Outlook.Application")
    Set myInspector = myOlApp.ActiveInspector
    myInspector.CurrentItem.Body = myInspector.CurrentItem.Body & Date
End Sub

Im Übrigen: Dies habe ich nur mit ".Subject"-Eigenschaft in der VBA-Hilfe gefunden.

gruß
thekorn

 

[Grafixboy]

Danke thekorn vielen Dank probiere ich jetzt gleich aus.

Wieso eigentlich unter Subject tut mir leid wegen der doofen Frage
aber ich hab zu selten mit Visual Basic zu tun.
Aber englisch müßte ich doch kennen Subject heißt doch Betreff richtig.
Vielmehr mit Actionscript, PHP, Java usw.

Gruß thekorn

PS: Ich poste nochmal ob es funktioniert hat.

 

[Grafixboy]

Hallo thekorn bei mir funktioniert dein Visual Basic -Script nicht.
Kann das daran liegen:
"Option Explicit"
das verbietet doch nichtdeklarierte Variablen.

und die Variable myOlApp ist doch nicht definiert.

Gruß thekorn

 

[M4st3r]

Ich habs getestet, bei mir gehts - hab das Option Explicit rausgenommen!

 

[Grafixboy]

Public Sub ausfgabe()
    Dim myOLApp As Object, myInspector As Object
    Set myOLApp = CreateObject("Outlook.Application")
    Set myInspector = myOLApp.ActiveInspector
    myInspector.CurrentItem.Body = myInspector.CurrentItem.Body & Date
End Sub

Ok so funktioniert es.
Danke für den Denkanstoß.
Verneigung vor thekorn

 

[Grafixboy]

Habe noch ne kleine Zusatzfrage .
Habe das mal aus Quatsch woanders eingefügt .
Nur verlangt er da ein with-Blockvariable.

Du weist nicht zufällig wie das geht nur interessehalber.