Yes Madhu,
I solved it with CDO. Here is the code
dim receiptto
receiptto="receiptmailid"
set cdoconfig=CreateObject("CDO.configuration")
set cdomsg=CreateObject("CDO.Message")
with cdoconfig.Fields
' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpservername"
' .Update
end with
with cdomsg
' set .Configuration=cdoconfig
.Fields("urn:schemas:mailheader:disposition-notification-to")=receiptto
.Fields("urn:schemas:mailheader:return-receipt-to") =receiptto
.From="frommailid"
.To="tomailid"
.Subject="Sample mail"
.HTMLBody="<b>Hello</b>"
.DSNOptions=4
.Fields.update
.Send
end with
set cdoconfig=nothing
set cdomsg=nothing
Actually, the commented lines are also needed. But i didnt succeed if they were. I tried with commenting those, then i got.
-----------
Rajani
|