Ich habe eine Frage an die VBA Profis. Gibt es eine Möglichkeit, 3 PDF (immer mit gleichbleibenden Name) auf einmal aus einem geschlossenen Ordner ins Outlook als Anhang zu integrieren?
Danke für jeden Hinweis!
Gruss Daniela
Sub emai_schreiben
Dim MyMessage As Object, MyOutApp As Object, myOlApp, htlm_Vorgabe As String
'Dim SigString As String, Signature As String
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = send_to
.cc = Kopie_an
.Subject = Betreff
.Display '.GetInspector.Display
.DeleteAfterSubmit = 0'löschen nach senden
.htmlbody = "" & text & "style>" & .htmlbody '= 'Signature 'text ist dein Text
Anhang = "Dein vollständiger dateipfad"
If anhang "" Then .attachments.Add anhang 'ggf. wiederholen
.Display 'email zeigen, ansonsten: .send
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Gruß,MCO
.attachments.Add anhang
stehen. Die Dateien werden im Mail nicht angehängt, was mache ich noch falsch?
'Sheet shNAme ins pdf umwandeln und an Outlook anhängen
Dim filename As String
Dim shName As String
shName = "Tabelle1"
strFilename = "C:\temp\" & shName & ".pdf" 'Anpassen
ThisWorkbook.Sheets(shName).ExportAsFixedFormat Type:=xlTypePDF, _
filename:=strFilename, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
.attachments.Add strFilename
Gruss