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