Solved: Excel 2007 Automatic E-mail

Is there a way to have Excel 2007 to automatically send a document by e-mail (not an XLS file)?

 

The below is a cut-down of this code.

Note that (i) client is Outlook (ii) early binding requires setting a reference to Outlook in Excel's VBE before use.

HTH

Sub SendWithAtt()

Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)

With olMail
.To = "[email protected]"
.Subject = "This is the subject"
.Attachments.Add "C:\Documents and Settings\Andy\My Documents\test.doc"
.Display
.Send
End With

Set olMail = Nothing
Set olApp = Nothing

End Sub

 

Bomb, the code looks great.

Here is something wierd. I tested the code by sending an e-mail to myself. When I look in th esent folder, I can see the e-mail was sent. However, I never received the e-mail.

 

Nevermind. The first test did not work, but I have been able to get two other test e-mails to work.

Thank you very much, Bomb.