Hello,
I want 2 create a macro, which replys a mail and generate aumatically a text like "Good Morning Mr. XX"
Here my Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 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
Dim oMail


Set oItem = GetCurrentItem()

'strEmpfaenger = Left$(oItem.SenderName, InStr(1, oItem.SenderName, ", ") - 1)

Set oMail = oItem.Reply
oMail.Display

Set myRecipient = oItem.Reply.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

All is fine but the i cant read the first name of the recepient.

Someone have an idea?

kind regards.