gansterjo2
Goto Top

VBS: Mail mit mehreren Zeilen versenden

Hallo Zusammen

Aufgrund von meinen wenigen Kenntnissen in der Entwicklung bin ich wieder an etwas hängengeblieben.

Ich würde gerne Mehrzeilige E-Mails mithilfe eines VBScripts versenden.

Ich versuchte dieses Vohaben Folgendermassen zu lösen:

Set objMessage = CreateObject("CDO.Message") ' auch hier wird ein Objekt erstellt udn in objMessage abgefüllt.  

Set objMessage = CreateObject("CDO.Message")   
objMessage.Subject = "titel"  
objMessage.From = "errorman@loeschen.ch"   
objMessage.To = "email@domain.ch"   

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ip"  

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    
objMessage.Configuration.Fields.Update

objMessage.Textbody = "Hello World 1"  
objMessage.Textbody = "Hello World 2"  

objMessage.send

Was muss ich abändern, dass ich die E-Mail mehrzeilig verschicken kann?

Freundliche Grüsse

Gansterjo2

Content-Key: 214281

Url: https://administrator.de/contentid/214281

Ausgedruckt am: 28.03.2024 um 21:03 Uhr

Mitglied: Xolger
Xolger 14.08.2013 um 11:45:48 Uhr
Goto Top
Hallo Gansterjo2,

sollte so funktionieren:
objMessage.TextBody = "Hello World 1" & vbCRLF & "Hello World 2"  

Gruß
Xolger
Mitglied: Gansterjo2
Gansterjo2 14.08.2013 um 11:53:52 Uhr
Goto Top
Hallo Xolger

Vielen Dank für die rasche Antwort. Nun ist meine frage, wie sieht das aus, wenn ich über den ganzen Code verteilt solche 'objMessages' verteilt habe, muss ich dann einfach das so gestalten:
objMessage.TextBody = objMessage.TextBody & vbCRLF & "dies ist ein Beispiel"  

Gruss

Gansterjo2
Mitglied: Xolger
Xolger 14.08.2013 um 11:57:26 Uhr
Goto Top
Hallo,

prinzipiell würde ich es so versuchen und falls das nicht klappt eine Hilfsvariable einführen:
Text = "Beispiel"  
Text = Text & vbCRLF & "dies ist ein Beispiel"  
...
objMessage.TextBody = Text

Aber ich denke das klappt auch ohne "Krücke".


Gruß
Xolger
Mitglied: Gansterjo2
Gansterjo2 14.08.2013 um 12:47:02 Uhr
Goto Top
Hallo,

Vielen Dank für Deine Unterstützung

Guss

Gansterjo2