VB-Programmbeispiele » Mails per VBS ohne Outlook

FreePDF_Multidoc � Sonstiges � VB-Programmbeispiele � Mails per VBS ohne Outlook

Themen-Einstellungen

Thema drucken

#1 | RE: Mails per VBS ohne Outlook datum

26.02.2010 13:51

Ahmed Martens

Informationen anzeigen

Beitr�ge:	401
Registriert seit:	16.03.2009

Hallo Leute,

ich habe mir gedacht, dass ja nun nicht jeder Outlook besitzt. Deshalb habe ich jetzt einmal VBScript erstellt, womit man sofort per smtp eine Mail erstellt und versendet.

Als Denkanstoß sollte das reichen.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 

 
Set objMessage = CreateObject(&quot;CDO.Message&quot;)
 
&#039;Mail-Nachrichtenk&ouml;rper
objMessage.Subject = &quot;Mein Betrefftext&quot;
objMessage.From = &quot;vorname.nachname@gmx.de&quot;
 
objMessage.To = &quot;To_empf&auml;nger.name@gmx.de&quot;
objMessage.Cc = &quot;Cc_empf&auml;nger.name@gmx.de&quot;
objMessage.BCc = &quot;BCc_empf&auml;nger.name@gmx.de&quot;
 
objMessage.TextBody = &quot;Mailnachrichtentext&quot;
 
objMessage.AddAttachment(&quot;C:Test MailMeinDokument.pdf&quot;)
objMessage.AddAttachment(&quot;C:Test MailTest1.txt&quot;)
 
&#039;SMTP-Kontoinformationen
objMessage.Configuration.Fields.Item(&quot;http://schemas.microsoft.com/cdo/configuration/sendusing&quot;) = 2
objMessage.Configuration.Fields.Item(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserver&quot;) = &quot;mail.gmx.net&quot;
objMessage.Configuration.Fields.Item(&quot;http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot;) = 25
objMessage.Configuration.Fields.Item(&quot;http://schemas.microsoft.com/cdo/configuration/sendpassword&quot;) = &quot;Passwort&quot;
objMessage.Configuration.Fields.Item(&quot;http://schemas.microsoft.com/cdo/configuration/sendusername&quot;) = &quot;Kontoname&quot;
objMessage.Configuration.Fields.Update
 
&#039;Sofort senden
objMessage.Send
 

 

Die Zugangsdaten für die Mailversendung müsst Ihr natürlich selber noch anpassen. Ich habe den Code in einem VBSript unter WinXP getestet und er hat bei mir einwandfrei funktioniert.

Gruß Ahmed

FreePDF_Multidoc (PS2PDF mit vielen Optionen f. FreePDF)
File2PDF (komplette Verzeichnisse auf einen Streich umwandeln)
findest Du alles hier: http://amTools.de

Antworten

Alles rund um FreePDF und andere Tools