Hallo,

ich habe folgendes Makro erstellt, um automatische eMail Anfragen in Outlook zu generieren und an manchen Tagen kommt es vor, dass der Text Body in eine Zelle des Excel Sheets geschrieben wird, anstatt in die eMail selbst, hier wird dann zwar die eMail generiert, aber lediglich mit den Empfängern und den Betreff. Woran kann das liegen und wie kann ich Abhilfe schaffen.

Sub Amendment_Initial_Capturing()

Dim olApp As Object

Dim objOutlook As Object

Dim objMail As Object

Dim Text As String

 Set olApp = CreateObject("Outlook.Application")

 Set objMail = olApp.CreateItem(0)

 Text = "Dear all, " & Chr(13) & Chr(13) & " please perform the amendment of the initial capturing. Thanks."

 With objMail

 '.GetInspector ' sorgt für die Signatur

.To = "xxxxx"

.cc = "xxxxx"

.Subject = "DEALNAME - AMENDMENT INITIAL CAPTURING"

.Display

 End With

 SendKeys Text

 Set olApp = Nothing

End Sub