To all
I have a asp page that will allow the user to send an emial using CDONTS, with an attachment to client, which works fine. The attachement can be either in DOC of PDF format. Again this works fine. The problem I have and I assume it something not configured, that the user who sends the email does not have a copy in their Outlook Sent Items folder.
How do I get a copy of the sent email to the Sent Items folder?
The following is the code that sends the email:
<%
Dim objNewMail
Dim MapDOC
Dim MapPDF
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = 0
objNewMail.To = Request.Form("txtClientEmail")
objNewMail.From = Request.Form("txtSenderEmail")
objNewMail.Subject = Request.Form("txtSubject")
objNewMail.Body = Request.Form("txtComments")
MapDOC = Request.Form("MapDOCVersion")
MapPDF = Request.Form("MapPDFVersion")
If MapDOC <> "Select Word Format Map" Then
objNewMail.AttachFile "C:\path\"&MapDOC, MapDOC, 1
objNewMail.Send ,,,, 2
Response.Write vbCrLf & "<Font Face=""Arial"">Message sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">File sent as - <b>" & MapDOC & " </b>format</font>"
Elseif MapPDF <> "Select PDF Format Map" Then
objNewMail.AttachFile "C:\Path\"&MapPDF, MapPDF, 1
objNewMail.Send ,,,, 2
Response.Write vbCrLf & "<Font Face=""Arial"">Message sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">File sent as - <b>" & MapPDF & " </b>format</font>"
Else
Response.Write vbCrLf & "<Font Face=""Arial"">Message NOT sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">Select a to file send</font>"
End If
%>
Again the code works I need help getting a copy of the sent email into the Sent Items Outlook folder.
Many thanks in advance
I have a asp page that will allow the user to send an emial using CDONTS, with an attachment to client, which works fine. The attachement can be either in DOC of PDF format. Again this works fine. The problem I have and I assume it something not configured, that the user who sends the email does not have a copy in their Outlook Sent Items folder.
How do I get a copy of the sent email to the Sent Items folder?
The following is the code that sends the email:
<%
Dim objNewMail
Dim MapDOC
Dim MapPDF
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.MailFormat = 0
objNewMail.To = Request.Form("txtClientEmail")
objNewMail.From = Request.Form("txtSenderEmail")
objNewMail.Subject = Request.Form("txtSubject")
objNewMail.Body = Request.Form("txtComments")
MapDOC = Request.Form("MapDOCVersion")
MapPDF = Request.Form("MapPDFVersion")
If MapDOC <> "Select Word Format Map" Then
objNewMail.AttachFile "C:\path\"&MapDOC, MapDOC, 1
objNewMail.Send ,,,, 2
Response.Write vbCrLf & "<Font Face=""Arial"">Message sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">File sent as - <b>" & MapDOC & " </b>format</font>"
Elseif MapPDF <> "Select PDF Format Map" Then
objNewMail.AttachFile "C:\Path\"&MapPDF, MapPDF, 1
objNewMail.Send ,,,, 2
Response.Write vbCrLf & "<Font Face=""Arial"">Message sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">File sent as - <b>" & MapPDF & " </b>format</font>"
Else
Response.Write vbCrLf & "<Font Face=""Arial"">Message NOT sent to - <b>" & Request.Form("txtClientEmail") & "</b></Font>"
Response.Write vbCrLf & "<br>"
Response.Write vbCrLf &"<font face=""Arial"">Select a to file send</font>"
End If
%>
Again the code works I need help getting a copy of the sent email into the Sent Items Outlook folder.
Many thanks in advance