Open Outlook

[jcbaggett16]

Alright, I have my code saving my file and attaching it to outlook. My issue is it only works if outlook is open. How can I get it to open outlook if not already open?

Sub PDF()
ChDir "C:\Users\...\Desktop\New folder"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...\Desktop\New folder\Transition " & Range("H2").Text


Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments

With OutLookMailItem
.To = ""
.Subject = ""
.Body = ""
myAttachments.Add "C:\Users\...\Desktop\New folder\Transition " & Range("H2").Text & ".pdf"
'.send
.Display
End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing


End Sub

 

[Trevor G]

Check out this thread it checks to see if outlook is open if not it opens it.

Excel VBA to detect if Outlook is open, if its not ,then open it

I have written code to download an attachment to a specified folder. Const olFolderInbox = 6 Sub detectpp_plate_record1() Dim oOutlook As Object Dim oOlns As Object Dim oOlInb As Object Dim unRea...

stackoverflow.com