VBA to generate email

[BearGilchrist]

Hi guys,

I need a simple VBA code that will open a new email in outlook and with the TO and CC recipients predefined and the subject line prefilled.

Pretty much a newbie to VBA so any help resources for beginners you find useful would be helpful too.

Thanks in advance.

 

[Nine Zero]

try this out

Private Sub SendEmail()
 Dim OutlookApp As Object
    Dim MItem As Object
    Dim email_ As String
    Dim subject_ As String
    Dim body_ As String
     
    Set OutlookApp = CreateObject("Outlook.Application")
     
    email_ = "Your TO here"
    subject_ = "Your SUBJECT here"
    body_ = "Whatever you want as the body"
     
     'create Mail Item and send it
    Set MItem = OutlookApp.CreateItem(0)
     
    Application.DisplayAlerts = False
    With MItem
        .To = email_
        .Subject = subject_
        .Body = body_
        .Send
    End With
    Application.DisplayAlerts = True

End Sub

 

[BearGilchrist]

Hi,

Thanks for that, so i had something similar to this however i don't want it to automatically send. I removed the .send to stop this but then the item doesn't even open, thoughts?

 

[BearGilchrist]

so in other words to allow the user to type in the body of the email and manually send

 

[Nine Zero]

Change the .Send to .Display

 

[BearGilchrist]

Thank you so much! that worked.

 

[Nine Zero]

No problem, glad i could help!