ich bin wieder auf eure Hilfe angewiesen.
Ich habe ein Makro zum Senden von PDFs ohne Zwischenspeicherung.
Leider erhält der Empfänger das PDF in einer angehängten E-Mail (Bild 1) und nicht direkt angefügt (Bild 2). Bei mir im Ordner "Gesendete" ist nur das PDF angefügt - so wünsche ich es mir auch beim Empfang (Bild 2).
Kann mir jemand weiterhelfen?
Ergänzende Frage:
Ist es eventuell auch möglich, dass die gesendete E-Mail direkt aus dem Ordner Gesendete und aus dem Papierkorb unwiderruflich gelöscht werden?
Bild 1
Bild 2
Sub SendPDfinEMail()
Dim olApp As Object
Dim AWS As String
file = Cells(32, 1) & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = Cells(33, 1)
.CC = ""
.BCC = ""
.Subject = "Dokument: " & file
'.Body = "Nachricht Zeile 1" & vbCr _
& vbCr _
& "Nachricht Zeile 2" & vbCr _
& vbCr _
& "Nachricht Zeile 3"
.Attachments.Add Environ("TEMP") & "\" & file
'.ReadReceiptRequested = True 'Lesebestätigung ein
'.Display 'Email anzeigen
.Send 'Email ohne Ansicht senden
End With
End Sub
Ich freue mich auf eure Hilfe und Rückmeldungen.Viele Grüße, T.