I haved used Rons code very successfully and I too also use Outlook Express
as my mail program.
I had experience a similar problem to you with regard to not receiving a
€œtest€� email I sent to myself when testing Rons code! I found that this
email was being treated as spam and moved to the spam folder so did not
download via outlook express. Updating my mail settings via the web solved
the problem.
Hope this may be of some help.

--
JB


"Ludo" wrote:

Hi,

I want to send a message using Outlook with an atachment.

I use following code adapted for my purpose:

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
' source base: http://www.rondebruin.nl/tips.htm
' adapted for my use

Dim OutApp As Object
Dim OutMail As Object
Const sMsg2 = "Send methode = Outlook"

' read data from ini file
szSection = "Expence"
szKey = "Mail Address1"
MailTo1 = GetIniKey(szFile, szSection, szKey)
szKey = "Mail Address2"
MailTo2 = GetIniKey(szFile, szSection, szKey)

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next

With OutMail
.To = MailTo1
If MailTo2 < "0" Then
.CC = MailTo2
End If
.Subject = wbName
.Body = sMsg & vbCrLf & sMsg2
.Attachments.Add wbPathName
.Send '.Display '
End With
Debug.Print Send

On Error GoTo 0
OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

What's the problem?

When i try it, and use my e-mail address to send to, i don't receive
the mail!
When i change the .Send into .Display , then it displays on screen ,
but what i don't find back in the toolbar is the Send button.

Outlook isn't my default mail client, i use always Outlook Express.
What's causing the problem, and how to solve it?

Regards,
Ludo