|
 |
 |

Frage: Wie versende ich eine EMail mit JMail? |
Nachfolgend ein Beispiel zum Versenden einer EMail mit JMail von Dimac.
Bezugsquelle: http://tech.dimac.net/ unter der Rubrik w3 JMail.
[jmail.asp]
<%
Set Mailer = Server.CreateObject( "JMail.Message" )
Mailer.Logging = true
Mailer.Silent = true
' --- Angeben des Absendernamens und dessen EMailadresse
Mailer.From = "info@absender.de"
Mailer.FromName = "Test Absender"
' --- Angeben des Empfängers
Mailer.AddRecipient "info@empfaenger.de", "Test Empfaenger"
' --- Angeben des Betreffs
Mailer.Subject = "Betreff dieser EMail"
' --- Angeben des Mailtextes
Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"
' --- Absenden der EMail
' --- Hier wird erst der Mailserver angegeben
If not Mailer.Send("mail.server.de" ) Then
Response.Write "Fehler: " & vbCrLf & Mailer.Log
Else
Response.Write "Mail erfolgreich versendet"
End if
Set Mailer = Nothing
%>
Um mehrere EMails zu versenden, genügt es, lediglich die zu ändernden Informationen
auszutauschen (bei einem Newsletter normalerweise nur der Name und die EMailadresse
des Empfängers) und wiederum die Methode Send aufzurufen. Das Objekt selbst muss
nicht wieder mit Set Mailer = Server.CreateObject("JMail.Message") neu erstellt werden.
[jmailloop.asp]
<%
' --- Hier wird z.B. eine Abfrage aus einer Datenbank gestartet,
' --- um die EMailempfänger zu ermitteln.
...
Set Mailer = Server.CreateObject( "JMail.Message" )
Mailer.Logging = true
Mailer.Silent = true
' --- Angeben des Absendernamens und dessen EMailadresse
Mailer.From = "info@absender.de"
Mailer.FromName = "Test Absender"
' --- Angeben des Betreffs
Mailer.Subject = "Betreff dieser EMail"
' --- Angeben des Mailtextes
Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"
Do While Not objRS.EOF
' --- Angeben des Empfängers
Mailer.AddRecipient "info@empfaenger.de", "Test Empfaenger"
' --- Absenden der EMail
' --- Hier wird erst der Mailserver angegeben
If not Mailer.Send("mail.server.de" ) Then
Response.Write "Fehler: " & vbCrLf & Mailer.Log
Else
Response.Write "Mail erfolgreich versendet"
End if
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
Set Mailer = Nothing
%>
|
|
 |
 |
|
|