VisualBasic Outlook VBA Recepients

[zer0core]

Hallo Jungs,

ich möchte per Makro eine Antwort-Mail erstellen, in der automatisch "Guten Tag Herr / Frau Mustermann (aus Exchange gelesen) generiert.

Hier mein aktueller Code:

Sub Antworten()
Dim olInspector As Outlook.Inspector
Dim olDocument
Dim olSelection
Dim strAtt As String
Dim strEmpfaenger As String
Dim myRecipient As String
Dim oItem As MailItem

Set oItem = GetCurrentItem()

Set oMail = oItem.Reply
oMail.Display

'Die Folgende Zeile funktioniert nicht...
Set myRecipient = oItem.recipients.Item(1).AddressEntry.GetExchangeUser.FirstName

strAtt = "Guten Tag "

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore strAtt & myRecipient

Set oMail = Nothing
End Sub

Könntet ihr mir bitte helfen, wie ich den Namen des An Felder auslesen kann.

Danke und Grüße

 

[zer0core]

Habe nun den endgültigen Code der funktioniert, falls es jmd interessiert und sich die Arbeit im Alltag etwas vereinfachen will ;-)

Sub Antworten()
Dim olInspector As Outlook.Inspector
Dim olDocument
Dim olSelection
Dim strText As String
Dim strEmpfaenger As String
Dim strAnrede As String
Dim oItem As MailItem
Dim oMail

Set oItem = GetCurrentItem()

Set oMail = oItem.Reply
oMail.Display

strEmpfaenger = oMail.recipients.Item(1).AddressEntry.GetExchangeUser.LastName
strAnrede = oMail.recipients.Item(1).AddressEntry.GetExchangeUser.JobTitle
              
 

strText = "Guten Tag "

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore strText & strAnrede & " " & strEmpfaenger & ","
SendKeys "{right}{Enter 2}"

Set oMail = Nothing
End Sub

Function GetCurrentItem() As Object
    Dim objApp As Outlook.Application
            
    Set objApp = Application
    On Error Resume Next
    Select Case TypeName(objApp.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = objApp.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = objApp.ActiveInspector.CurrentItem
    End Select
        
    Set objApp = Nothing
End Function