VBA für alle markierten Mails ausführen (Outlook)
21.03.2014 15:03:22
Thomas
ich benötige mal wieder ein klein wenig Hilfe. Ich möchte in Outlook 2010 allen markierten E-Mails eine individualisierte Antwort per VBA Script zukommen lassen. Dabei soll in jeder Mail aus dem Absenderfeld der Nachname ausgelesen und zum Anfang ausgewählt werden ob der Absender Mann oder Frau ist. Das klappt für eine Mail ganz gut, nur für mehrere markierte weiß ich leider nicht wie das übergeben werden soll und wie das Datum des E-Maileingangs im Text genutzt werden kann. Die von mir definierte Variable "Datum" geht leider nicht. Hier mal mein Code soweit:
Sub InsertNameInReply()
Dim Msg As Outlook.MailItem
Dim MsgReply As Outlook.MailItem
Dim strGreetName As String
Dim geschlecht As String
Dim lGreetType As Long
Dim Datum As String
'set reference to open/selected mail item
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set Msg = ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set Msg = ActiveInspector.CurrentItem
Case Else
End Select
On Error GoTo 0
If Msg Is Nothing Then GoTo ExitProc
' figure out greeting line
On Error Resume Next
lGreetType = InputBox("Gender Select:" & vbCr & vbCr & "Drücke '1' männliche Kündigung oder _
_
'2' für weibliche Form")
On Error GoTo 0
If lGreetType = False Then GoTo ExitProc
If lGreetType = 1 Then
'Datum = objItem.ReceivedTime Guten Tag " & _
geschlecht & " " & strGreetName & ",
vielen Dank für Ihre E-Mail
Wir bestätigen _
Ihnen hiermit den Erhalt Ihrer Kündigung vom " & Datum &".
Vielen Dank für Ihre Treue
" & .HTMLBody
.Display
End With
ExitProc:
Set Msg = Nothing
Set MsgReply = Nothing
End Sub
-----------------------------------------------------------
Wäre schön wenn Ihr mir helfen könntet.