Can't send email from Excel with CDO

R

robotman

I'm trying to send a simple email from excel. No attachments. I
downloaded this script using CDO (???), but when it goes to send the
email (at .send) , I get the following error:

--> The "SendUsing" configuration is invalid. <---

Can anyone help?!

Thanks.

John

___

Sub Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg

Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.From = """Joe Smith"" <[email protected]>"
.Subject = "Important message"
.TextBody = strbody
.Send ' <----GETS ERROR HERE
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub
 
F

Franz Verga

I'm trying to send a simple email from excel. No attachments. I
downloaded this script using CDO (???), but when it goes to send the
email (at .send) , I get the following error:

--> The "SendUsing" configuration is invalid. <---

Can anyone help?!
[cut]

Hi John,

try here:

http://www.rondebruin.nl/sendmail.htm




--
(I'm not sure of names of menus, options and commands, because
translating from the Italian version of Excel...)

Hope I helped you.

Thanks in advance for your feedback.

Ciao

Franz Verga from Italy
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top