Hallo,
ich habe einen Kommandozeilenaufruf:
"C:\Program Files\7-Zip\7z.exe" a archive.zip -psecure *.txt
welcher sämtliche *.txt Dateien in ein Archiv packt und mit Kennwort versieht.
Diese Datei versende ich danach per Outlook Makro:
Sub EmailDirektSenden()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "deinname@deinedomain.de"
.Subject = "Betreff"
.Body = "Hier kommt die Datei "
.Attachments.Add "C:\archive.zip"
.Send 'Sendet die Email automatisch
End With
End Sub
Das Makro EmailDirektSenden() funktioniert wie gewünscht. :-)
Wie kann das BATCH Programm per Outlook 2016 Makro ausführen?
Wie kann das BATCH Programm in das EmailDirektSenden() integrieren?
Viele Grüße aus Mainz
Detlef