Outlook Mail Textbausteine mit VBA einfü
08.10.2021 10:14:36
JoTu
ich habe einen Button, mit dem ich eine Mail versende mit Anhang, Signatur, Betreff, Adressat u.s.w. und möchte den Mailtext (body) nun aus einem meiner Textbausteine aus dem Mail-Outlook auswählen (die heißen "Bestätigung", "Ausweichtermin", u.sw.). Dazu finde ich nichts im Netz. Mein Code ist bisher:
(thx for help!)
Private Sub CommandButton9_Click()
Dim objOutlook As Object
Dim objMail As Object
Dim strSignatur As String
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Anhang = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 5) & ".pdf"
With objMail
.GetInspector.Display
.To = Sheets(1).Range("X38").Value
.Subject = Sheets(1).Range("B31").Value
' .Body = Textbaustein aus Outlook: "Bestätigung" (Das soll theoretisch hier passieren aber wie?)
.Attachments.Add Anhang
.Display
SendKeys "{Tab}{Tab}{Tab}{Tab}{Tab}{END}", True
SendKeys "{NUMLOCK}"
End With
End Sub