Slettet bruger
21. februar 2004 - 19:49
Der er
1 kommentar og
1 løsning
fra cdonts til jmail
Jeg sidder og roder med et script hvor brugerne kan sende en mail med et link til et billede i mit fotoalbum.
Er der en der kan hjælpe mig med at ændre det til Jmail?
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.cc = "your_email@yourdomain.com"
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
Set objNewMail = Nothing
%>
Slettet bruger
21. februar 2004 - 20:10
#1
ups gmelt lige at få noget med :o)
<%
Dim strSender
Dim strRecipientsName
Dim strRecipients
Dim strSubject
Dim strMessage
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strSubject = "From: " & Request.Form("YName") & " Picture"
strMessage = "Hello " & Request.Form("Name") & vbCrLf & vbCrLf
strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf
strMessage = strMessage & "You received this from : " & Request.Form("YName") & " " & Request.Form("YEmail")
strSender = Request.Form("YEmail")
%>
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.cc = "your_email@yourdomain.com"
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
on error resume next '## Ignore Errors
Set objNewMail = Nothing
%>
