I had written the function for sending the HTML mail, its working fine but only ‘FROM’ field is not coming when sending the mail, In the inbox of the mail receiver its giving the name of the person who has signed the agent and not the name of the person who send this mail(FROM field).
I dont want to select the optiion Run As Web User, since I am using the Authors field in my work flow, if i do that it will work fine.
following is my code
Function SendHTMLMail(strTo As String, strCC As String, strBcc As String, strSubject As String, strBody As String, strPrincipal As String, strDisplaySent As String, strFrom As String, strSentBy As String, strDisplayFrom_Preview As String, strtempDisplaySentBy As String)
Set stream = dbasesession.CreateStream
dbasesession.ConvertMime = False
Set docMail = dbaseThis.createDocument()
docMail.Form = "Memo"
Set mimeBody = docMail.CreateMIMEEntity
Set mimeHeader = mimeBody.createHeader("Subject")
mimeHeader.SetHeaderVal(strSubject)
Set mimeHeader = mimeBody.createHeader("From")
mimeHeader.SetHeaderVal(strFrom)
Set mimeHeader = mimeBody.createHeader("To")
mimeHeader.SetHeaderVal(strTo)
Set mimeHeader = mimeBody.createHeader("CC")
mimeHeader.SetHeaderVal(strCC)
Set mimeHeader = mimeBody.createHeader("BCC")
mimeHeader.SetHeaderVal(strBCC)
Set mimeHeader = mimeBody.createHeader("Principal")
mimeHeader.SetHeaderVal(strPrincipal)
Set mimeHeader = mimeBody.createHeader("DisplaySent")
mimeHeader.SetHeaderVal(strDisplaySent)
Set mimeHeader = mimeBody.createHeader("SentBy")
mimeHeader.SetHeaderVal(strSentBy)
Set mimeHeader = mimeBody.createHeader("DisplayFrom_Preview")
mimeHeader.SetHeaderVal(strDisplayFrom_Preview)
Set mimeHeader = mimeBody.createHeader("tmpDisplaySentBy")
mimeHeader.SetHeaderVal(strtempDisplaySentBy)
stream.WriteText strBody
Call mimeBody.SetContentFromText(stream,"text/html;charset=UTF-8", ENC_NONE)
Call docMail.Send(False)
End Function
TIA
Pravesh.