Kann Dir zwar das Log nicht erkl�ren, aber mit der Function funktionierts
bei mir. Gerade nochmal getestet.
<%
function SendMail(Mail, URL, Body, SendFrom)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = Application("MailServer")
JMail.Sender = "[EMAIL PROTECTED]"
JMail.Subject = "Empfehlung einer Seite"
if SendFrom <> "" then
JMail.Subject = JMail.Subject & " von " & SendFrom
end if
JMail.AddRecipient Mail
if SendFrom <> "" then
JMail.Body = JMail.Body & SendFrom & " m�chte Ihnen die
Seite " & URL & " empfehlen." & vbcrlf & vbcrlf
else
JMail.Body = JMail.Body & "Diese Seite wird Ihnen empfohlen:
" & URL & vbcrlf & vbcrlf
end if
if Body <> "" then
if SendFrom <> "" then
JMail.Body = JMail.Body & "Au�erdem m�chte " &
SendFrom & " Ihnen noch folgendes mitteilen:" & vbcrlf
else
JMail.Body = JMail.Body & "Folgende Mitteilung wurde
Ihnen zugestellt." & vbcrlf
end if
JMail.Body = JMail.Body & Body
end if
JMail.Silent = True
JMail.Execute
'Response.Write JMail.ErrorCode
'Response.Write JMail.ErrorMessage
'Response.Write JMail.ErrorSource
end function
%>
Und da f�llt mir doch noch was ein :-)
Wenn ich mich nicht teusche, hatte ich mal Probleme mit dem AddRecipient.
Gib dort mal nur die Adresse an und nicht den Namen dazu.
Ciao
Buchi
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
