versuche mit folgendem Code
Sub Outlook_ansteuern()
Dim olApplication As Object
Dim objEMail As Object
Dim Vorlage As String
Set olApplication = CreateObject("Outlook.Application")
Set objEMail = olApplication.CreateItemFromTemplate(Vorlage)
verz = ActiveWorkbook.Path
Vorlage = verz + "\Vorlagen\RDG.oft"
' '***Kommentartext als Mailtext auslesen
' Sheets("MAILTEXT").Range("A1").Comment.Shape.Select True
' mailtext = Sheets("MAILTEXT").Range("A1").Comment.text
With objEMail
' .To = strEMail
' .CC = ***Kopieempfänger
' .BCC = ***Blindkopieempfänger
' .Subject = strTitel
' .Body = mailtext
' .Attachments.Add verz + "\TEMP\" + strSTAMMNR + ".xls"
.ReadReceiptRequested = False '***ohne Empfangsbestätigung
' .DeleteAfterSubmit = True '***Mail nicht abspeichern
.Display
End With
Set olApplication = Nothing
Set objEMail = Nothing
End Sub
eine Mail aus einer Vorlage zu erstellen. Bekomme dann aber immer folgenden Fehler:
Laufzeitfehler '-2147287037 (80030003)':
Die Datei "" kann nicht geöffnet werden. Möglicherweise existiert die Datei nicht .............