New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
On Error Resume Next Dim objOL As Object 'check if Outlook is running Set objOL = GetObject(, "Outlook.Application") 'on error start Outlook If Err.Number <> 0 Then ' Err.Clear Shell "C:\Program Files\Microsoft Office\Office14\outlook.exe", vbMinimizedFocus DoEvents End If Set olApp = CreateObject("Outlook.Application") Set olMsg = olApp.CreateItem(0) With olMsg .Subject = "Subject" .body = "Bodytext" .To = "" '.CC = Recipient .Attachments.Add "c:\test.xlsx" .Attachments.Add "c:\test2.xlsx" .Send End With FIN: Set olMsg = Nothing Set olApp = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.