You just need to add some more header information to the email.
' controlling from and reply to
Set mh = body.CreateHeader("From")
Call mh.SetHeaderVal(sFrom)
Set mh = body.CreateHeader("SMTPOriginator")
Call mh.SetHeaderVal(sFrom)
Set mh = body.CreateHeader("Sender")
Call mh.SetHeaderVal(sFrom)
Set mh = body.CreateHeader("INetFrom")
Call mh.SetHeaderVal(sFrom)
Set mh = body.CreateHeader("ReplyTo")
Call mh.SetHeaderVal(sReply)
Set mh = body.CreateHeader("DisplaySent")
Call mh.SetHeaderVal(sFrom)
I am passing some more arguments to the function, like "sReply" and "sFrom",
but that's ofcourse an easy adjustment.
You just need to add some more header information to the email.
' controlling from and reply to Set mh = body.CreateHeader("From") Call mh.SetHeaderVal(sFrom) Set mh = body.CreateHeader("SMTPOriginator") Call mh.SetHeaderVal(sFrom) Set mh = body.CreateHeader("Sender") Call mh.SetHeaderVal(sFrom) Set mh = body.CreateHeader("INetFrom") Call mh.SetHeaderVal(sFrom) Set mh = body.CreateHeader("ReplyTo") Call mh.SetHeaderVal(sReply) Set mh = body.CreateHeader("DisplaySent") Call mh.SetHeaderVal(sFrom)
I am passing some more arguments to the function, like "sReply" and "sFrom", but that's ofcourse an easy adjustment.
Best regards, Rune Carlsen Dominozone.net