sendusing configuration value is invalid

[touqir]

Hi All!

I want to send email by using the following routine but I'm receiving an error message "sendusing configuration value is invalid". Can anybody help me out

Dim ObjMessage

SmtpMail.SmtpServer = "smtp.googlemail.com"

Set ObjMessage = CreateObject("CDO.Message")
ObjMessage.Subject = "Example CDO Message"
ObjMessage.sender = "touqir1972@yahoo.com"
ObjMessage.To = "touqir1972@yahoo.com"
ObjMessage.TextBody = "This is some sample message text."
ObjMessage.Send

 

[PHV]

Have a look here:
thread705-1369407

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886