You are using code written for Outlook. Regardless of your default mail
program, do you have Outlook installed and account set up to do emails?
Outlook must be functioning as a mail program in order to send mail. It does
not have to be the default. With your code you should be able to send
yourself an email from Outlook and receive it in OExpress (default), but
both programs must be set up with email accounts. If this is not your
situation and both mailers are functioning, then you may need Ron to help
you out.

Mike F
"Ludo" wrote in message
ups.com...
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