Hallo!
Ich habe folgendes Problem: Ich möchte einen Button für die Symbolleiste von Outlook programmieren der mir beim anklicken das Datum als Überschrift in die neue E-Mail schreibt. Ich hoffe mir kann da jemand weiterhelfen. Ich hab schon angefangen ein Makro zu programmieren finde aber einfach nicht den richtigen Befehl zum einsetzen in die E-Mail.
Für eure Hilfe danke ich schonmal im Vorraus.
MFG
Patrick
Hallo Patrick,
zuerst brauchst du mal eine Funktion die dir das aktuell geöffnete Mail zurückgibt. Da gibts im Internet was vorgefertigtes:
Function GetCurrentItem() As MailItem
Dim objApp As Application
Dim objSel As Selection
Dim objItem As Object
Set objApp = CreateObject("Outlook.Application")
Select Case objApp.ActiveWindow.Class
Case olExplorer
Set objSel = objApp.ActiveExplorer.Selection
If objSel.Count \> 0 Then
Set objItem = objSel.Item(1)
End If
Case olInspector
Set objItem = objApp.ActiveInspector.CurrentItem
Case Else
End Select
If Not objItem.Class = olMail Then
MsgBox ("This function only works with mail objects.")
End
End If
Set GetCurrentItem = objItem
Set objItem = Nothing
Set objSel = Nothing
Set objApp = Nothing
End Function
Eigentlich möchte man annehmen, dass es da was vorgefertigtes im Outlook-VBA gibt, dem ist aber scheinbar so, zumindest habe ich noch nie was gefunden.
Mit dieser Funktion kannst du dann eine einzeilige Funktion die das Datum einfügt schreiben:
Sub SetSubjectToDate()
GetCurrentItem().Subject = Date
End Sub
Ich hoffe das hilft dir mal weiter, wenn nicht, schreib einfach nochmal.
Grüße, Robert
Hi Robert!
Es klappt leider immmer noch nicht aber ich habe dir eine E-Mail mit ein paar Screenshots meines Problems geschickt. Ich bitte dich mir zu helfen.
MFG Patrick