View Single Post
  #6 (permalink)  
Old January 4th, 2010, 03:39 AM
Trupti Trupti is offline
Registered User
 
Join Date: Jan 2010
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Unhappy I am getting the Run-Time error - The "SendUsing" configuration value is invalid

Sub Email()


Set objmessage = CreateObject("CDO.Message")
'SmtpMail.SmtpServer = "smtpserver name"
objmessage.Subject = "Subject"
objmessage.From = "xyz@domain.com"
objmessage.To = "xyz@domain.com"
objmessage.TextBody = "Excel Data is sent successfully."
objmessage.Send

End Sub


Please let me know if you know any solution...Its urgent
Reply With Quote