68 Aufrufe
Gefragt in E-Mail Outlook von
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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...