Hallo Karin,
sorry, ich dachte, dass mein Code hier nicht so wichtig sei.
Ich habe mir das so zusammengebastelt:
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Dim objEmail As Object
Dim myAttachments As Object
'Datei für PDF definieren
Dim DateiNameAngebot As String
' DateiNameAngebot = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.name, InStrRev(ActiveWorkbook.name, ".") - 1) & " - ANGEBOT.pdf"
DateiNameAngebot = ActiveWorkbook.Path & "\" & Worksheets("Angebot").Cells(4, 13) & ".pdf"
'Angebotsblatt in PDF exportieren
Worksheets("Angebot").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiNameAngebot, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
'Variabeln setzen (füllen)
Set objOutlook = CreateObject("Outlook.Application")
Set objEmail = objOutlook.CreateItem(0)
Set myAttachments = objEmail.Attachments
'SET Attachment
' CREATE EMAIL OBJECT.
With objEmail
.To = Worksheets("Eingabe").Cells(9, 21)
.Subject = Worksheets("Angebot").Cells(3, 2)
.Body = Worksheets("Angebot").Cells(9, 2) & Worksheets("Angebot").Cells(14, 29)
.Display
.Attachments.Add DateiNameAngebot
' .Send
End With
' CLEAR.
Set objEmail = Nothing: Set objOutlook = Nothing: Set myAttachments = Nothing
Komme ich da mittels .GetInspector weiter?
Liebe Grüße
Peter