I am trying to send an email with attachments from excel
thru outlook. when I run this code outlook locks up the
system. I think the problem is the code finishes before
outlook is finished ??? Is there a way to make the code
wait until outlook is finished before proceding????
Or is my code flawed??
Sub SendWithAtt()

Dim olApp As Outlook.Application
Dim olMail As MailItem

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "
.CC = ""
.Subject = "daily reports"
.Body = ""
.Attachments.Add "c:\abc\file1.pdf"
.Attachments.Add "c:\abc\file2.pdf"
.Display
End With

Set olMail = Nothing
Set olApp = Nothing

End Sub


Any help would be appreciated
using win2000 ,excell 2000 & outlook 2000
Dan Jordan

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!