Excel CDO

[SQL Servant]

I'm trying to bypass Outlook to send an email with a csv attachment. I used
the code provided by Ron De Bruin (http://www.rondebruin.nl/cdo.htm):
- - - - -
Sub CDO_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")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
..Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
' = "Fill in your SMTP server here"
'
..Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' .Update
' End With

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 = """Ron"" <[email protected]>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With

End Sub
- - - - -
... but nothing happens when I run the macro, regardless of whether the
configuration lines are commented or not.

Any advice greatly appreciated.

SQL Servant

 

[John Bundy]

My first guess, did you change this:
..To = "(e-mail address removed)"

 

[Ron de Bruin]

Have you fill in your smtp sever when you use the commented code ?

 

[SQL Servant]

I did fill in the smtp server and (in reply to John Bundy) I did change the
email address to mine (From and To).... Still no joy.

SQL Servant

 

[Ron de Bruin]

No errors ?

 

[SQL Servant]

No errors. Nothing happens.

No errors ?