CreateObject("Outlook.Application")
FWIW, you can replace
thisWb = ThisWorkbook.Path & "\" & ThisWorkbook.Name
with
thisWS = Thisworkbook.fullname
--
HTH,
Barb Reinhardt
"Howard31" wrote:
Hi,
I have procedure for sending mail. The problem is that the procedure will
work the first time it is executed but not the second time then the third
time it will work but not the fourth time and so on.
The sendEmail procedure is below.
Any help will be very much appreciated!
Public Sub sendMail()
On Error Resume Next
Dim oLApp As Object
Dim eMail As Object
Dim thisWb As String
thisWb = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Set oLApp = CreateObject("Outlook.Application")
Set eMail = oLApp.CreateItem(olMailItem)
With eMail
.To = "
.Subject = "some subject"
.Attachments.Add (thisWb)
.Display
End With
Set eMail = Nothing
Set oLApp = Nothing
End Sub
|