rvfowler2
asked on
Auto Send Excel as Email Attachment
We have created a macro that imports a logon/logoff csv file into Excel and formats it. We now want to send it as an attachment automatically. The second macro does just that; however, it seems a bit long. Directly below is the shortest version, but it shows the email box instead of sending it. Is there another step that can just send it without user intervention? Thank you.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/26/2010 by
'
ActiveWorkbook.Save
Application.Dialogs(xlDial ogSendMail ).Show "randy@upcli.com", "Subject Matter"
End Sub
----------------------
Sub EmailExcel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Appl ication")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "randy@upcli.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/26/2010 by
'
ActiveWorkbook.Save
Application.Dialogs(xlDial
End Sub
----------------------
Sub EmailExcel()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Appl
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "randy@upcli.com"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
rvfowler2,
Glad to help :)
Patrick
Glad to help :)
Patrick
ASKER
ThisWorkbook.SendMail "randy@upcli.com", "Logon/Logoff Data"