By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,851 Members | 1,193 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,851 IT Pros & Developers. It's quick & easy.

Send Email using CDO in vba

P: n/a
Dim cdoConfig
Dim msgOne

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = (yourport number) usually is 25
.Item(cdoSMTPServer) = "mail.yourmailserver.com"
'.Item(cdoSendUserName) = "myName"
'.Item(cdoSendPassword) = "myPassword"
.Update
End With

Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = "na**@yourdomain.com"
msgOne.From = "na**@yourdomain.com"
msgOne.Subject = "Test"
msgOne.TextBody = "It work just fine"
msgOne.Send

Sep 7 '06 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.