Ich möchte auf komfortable Weise eine Outlook-Mail erstellen und dabei flexibel bleiben. Dabei sollen standardmäßig eine Betreff-Text, Mail-Text und Empfänger vorbelegt sein.
Lösung:
Die Lösung könnte sein, dass Sie für verschiedene Gelegenheiten sich einfach ein VBS-Datei erstellen und folgenden Code verwenden:
Set WshShell = WScript.CreateObject ("WScript.Shell") set Ag = WScript.Arguments
Const olByValue = 1 Const olMailItem = 0
Dim oOApp Dim oOMail
Set oOApp = CreateObject("Outlook.Application") Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail .To = "mapitest@ihremaildomain.net" .Subject = "Dies ist der Betreff" .Body = "Testnachricht "
for i= 1 to ag.count .Attachments.Add ag.item(i-1), olByValue, 1 next .Display 'zum Anschauen '.send 'zum sofortigen senden End With
Diese VBS-Datei speichern Sie an geeigneter Stelle.
1. Erstellung über Drag & Drop
Jetzt können Sie einfach die Dateien auf die VBS-Datei ziehen und es wird eine OL-Mail erstellt.
2. Erstellung über Shell-Befehl mit Auswahleingabe
Shell mail.vbs "C:Test MailTest.pdf"
Über eine Select Case-Anweisung können Sie mehrere Mails über eine Auswahl in einer VBS-Datei verwalten.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
strCommand = Inputbox("Geben Sie Ihre Auswahl an","Mein Titel",1)
Select Case strCommand
Case "1"
[...]
Case "2"
[...]
End Select
Natürlich kann man jetzt auch die einzelne Mail-Bestandteile auch über ein Inputbox individuell befüllen.
Gruß Ahmed
FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF) File2PDF (komplette Verzeichnisse auf einen Streich umwandeln) findest Du alles hier: http://amTools.de