VBA text Body wird teilweise in Zelle geschrieben anstatt in eMail?

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

Answer 1

[IchMalWiederXY]

Erste Anpassung:
myText = "Dear all, " & vbCrLf & vbCrLf & " please perform the amendment of the initial capturing. Thanks."
===
SendKeys Text ' diese Zeile kann so nicht gehen.
.body = myText

Comments

[Kristin466]

Danke, ich habe nun die Ergänzung vorgenommen und den Bereich sendkeys durch .body = myText ersetzt. Allerdings erscheint nun Fehler beim Kompilieren 🤔 ist der Einschub ggf. an der falschen Stelle?

[IchMalWiederXY]

@Kristin466

.body = myText
MUSS innerhalb der
With
End With
stehen.
Die Vorbereitung des Inhalts in myText irgendwo davor.