Open email VBA Code

[Malcolm torishi]

I would like to open a new email by pressing a button on my spread sheet. With the name to the person I want to send it too and subject. If any one could help please. Thank you

 

[bugmonsta]

Hello I advise that to start with a visit to https://www.rondebruin.nl/win/section1.htm - here you will learn about emailing from Excel and what you can email (range of data, a sheet or the whole workbook etc). When you know what you want to send then grab any sample code and post back here.

If you need help creating a button and assigning the code then we can also do that for you

if you want to just send an email with no data then the most basic of Rons VBA will be:

Sub Mail_Sheet_Outlook_Body()
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
'Working in Excel 2000-2016
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "ENTER YOUR EMAIL HERE"
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"

        .display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub