Automatischer mailversand aus unserer Software

Set objOutlook = CreateObject("Outlook.Application")  
Set objMail = objOutlook.CreateItem(0)
With objMail
	.To = "empfänger@email.de"  
	.Subject = "Betreff"  
	.Body = "Dein Body"  
	.Attachments.Add "c:\DeinAttachment.pdf"  
	.Display
End With

Set objArgs = WScript.Arguments
If objArgs.Count >= 3 Then
	strTO = objArgs(0)
	strSubject = objArgs(1)
	strBody = objArgs(2)
	If objArgs.Count = 4 Then
		strAttachment = objArgs(3)
	End If
Else
	WScript.Echo "Falsche Anzahl an Argumenten!"  
End If
Set objOutlook = CreateObject("Outlook.Application")  
Set objMail = objOutlook.CreateItem(0)
With objMail
	.To = strTO
	.Subject = strSubject
	.Body = strBody
	If strAttachment <> "" Then  
		.Attachments.Add strAttachment
	End If
	.Display
End With

cscript.exe //NOLOGO createOutlookMail.vbs "empfänger@email.de" "Dein Betreff" "Dein Body" "c:\Attachment.pdf"

"C:\Pfad\createOutlookMail.vbs" "empfänger@email.de" "Dein Betreff" "Dein Body" "c:\Attachment.pdf"