ASP Mail Komponente

[microdommi]

Moin!

Habe auf meinem Webserver (NT 4.0 + IIS 4.0)

eine ASPSMARTMAIL und JMail Komponente installiert!

Damit kann ich auch Mails versenden! Leider nur an die User die auf dem Exchnage Server registriert sind! Wie kann ich die SMTP Authentifizierung umgehen das ich die Mails auch an Externe Mail Konten schicken kann????

[jougli]

Hi microdommi,

ich hoffe es ist da was für Dich dabei:

  

EINFACHE MAIL (CDONTS)

<%

  Set objMail = Server.CreateObject("CDONTS.Newmail")

  objMail.From = "info@internetworld.de"

  objMail.To = "askbill@microsoft.com"

  objMail.Subject = "Interview"

  objMail.Body = "Dear Bill, how about an interview?" &_

                 vbCrLf & " The drinks are on us!"

  objMail.Send

  Set objMail = Nothing

%>


KOMPLEXERE MAIL (CDONTS)

<%

  Set objMail = Server.CreateObject("CDONTS.Newmail")

  objMail.From = "info@internetworld.de"

  objMail.To = "askbill@microsoft.com"

  objMail.Cc = "billg@microsoft.com"

  objMail.Bcc = "linus@linux.org"

  objMail.Importance = 0

  objMail.BodyFormat = 0

  objMail.MailFormat = 0

  objMail.Subject = "Interview"

  objMail.Body = "<b>Dear Bill</b>, how about an " &_

                 "interview?<br>The drinks are on us!"

  objMail.AttachFile("c:\fragenkatalog.doc")

  objMail.Send

  Set objMail = Nothing

%>


EINFACHE MAIL (JMAIL)

<%

  Set objMail = Server.CreateObject("JMail.Message")

  objMail.From = "info@internetworld.de"

  objMail.AddRecipient "askbill@microsoft.com"

  objMail.Subject = "Interview"

  objMail.Body = "Dear Bill, how about an interview?" &_

                 vbCrLf & " The drinks are on us!"

  objMail.Send("smtp.provider.de")

  Set objMail = Nothing

%>


KOMPLEXERE MAIL (JMAIL)

<%

  Set objMail = Server.CreateObject("JMail.Message")

  objMail.From = "info@internetworld.de"

  objMail.AddRecipient "askbill@microsoft.com"

  objMail.AddRecipientCC "billg@microsoft.com"

  objMail.AddRecipientBCC "linus@linux.org"

  objMail.Proiroty = 2

  objMail.Subject = "Interview"

  objMail.HTMLBody = "<b>Dear Bill</b>, how about an" &_

                 " interview?<br>The drinks are on us!"

  objMail.Body = "Dear Bill, how about an interview?" &_

                 vbCrLf & " The drinks are on us!"

  objMail.AddAtachment("c:\fragenkatalog.doc")

  objMail.Send("smtp.provider.de")

  Set objMail = Nothing

%>


FORMULAR

<FORM METHOD="POST" ACTION="mail.asp">

Name: <INPUT TYPE="TEXT" NAME="name"><BR>

E-Mail: <INPUT TYPE="TEXT" NAME="email"><BR>

Kommentar: <TEXTAREA ROWS="8" COLS="60" 

                     NAME="kommentar"></TEXTAREA><BR>

<INPUT TYPE="SUBMIT" VALUE="Abschicken">

</FORM>


SCRIPT MAIL.ASP (CDONTS)

<%

  Set objMail = Server.CreateObject("CDONTS.Newmail")

  objMail.From = "websitebesucher@internetworld.de"

  objMail.To = "webmaster@internetworld.de"

  objMail.Subject = "Web-Anfrage"

  MailBody = "Anfrage von " & Request.Form("name") & _

             vbCrLf & _

             "E-Mail: " & Request.Form("email") & _

             vbCrLf & _ 

             "Kommentar: " & Request.Form("kommentar")

  objMail.Body = MailBody

  objMail.Send

  Set objMail = Nothing

%>


SCRIPT MAIL.ASP (JMAIL)

<%

  Set objMail = Server.CreateObject("JMail.Message")

  objMail.From = "websitebesucher@internetworld.de"

  objMail.AddRecipient "webmaster@internetworld.de"

  objMail.Subject = "Web-Anfrage"

  MailBody = "Anfrage von " & Request.Form("name") & _

             vbCrLf & _

             "E-Mail: " & Request.Form("email") & _

             vbCrLf & _ 

             "Kommentar: " & Request.Form("kommentar")

  objMail.Body = MailBody

  objMail.Send("smtp.provider.de")

  Set objMail = Nothing

%>

bis dann