Command Button to send email

[ReignEternal]

Hello,

I have looked through a few of the other threads for this but I have a command button that i want to display an email once the button is clicked. I kep getting an error that says variable not defined. Also in the second image, the two regions of vba keep getting highighted. Overall i am looking to have someone click the "Send Email" button and have it the display hte email and attach the source file path

Private Sub cmdEmail_Click()

    On Error GoTo ErrHandler
    
'     SET Outlook APPLICATION OBJECT.
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    
'     CREATE EMAIL OBJECT.
    Dim olEmail As Object
    Set olEmail = olApp.CreateItem(olMailItem)

    With olEmail
        .to = "emailaddresswilllivehere"
        .Subject = "This is the Subject of the E-mail"
        .Body = "This is the Body of the E-mail"
        .Display        ' Display the message in Outlook.
        .Attachments.Add Source
        Source = ThisWorkbook.FullName
    End With
    
'    CLEAR.
    Set olEmail = Nothing:    Set olApp = Nothing
        
ErrHandler:
    '
End Sub

 

[DanteAmor]

Try this:

Private Sub cmdEmail_Click()
'     SET Outlook APPLICATION OBJECT.
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    
'     CREATE EMAIL OBJECT.
    Dim olEmail As Object
    Set olEmail = olApp.CreateItem(0)

    With olEmail
        .to = "emailaddresswilllivehere"
        .Subject = "This is the Subject of the E-mail"
        .Body = "This is the Body of the E-mail"
        .Display        ' Display the message in Outlook.
        .Attachments.Add ThisWorkbook.FullName
    End With
    
'    CLEAR.
    Set olEmail = Nothing:    Set olApp = Nothing
End Sub

 

[ReignEternal]

Try this:

Private Sub cmdEmail_Click()
'     SET Outlook APPLICATION OBJECT.
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
   
'     CREATE EMAIL OBJECT.
    Dim olEmail As Object
    Set olEmail = olApp.CreateItem(0)

    With olEmail
        .to = "emailaddresswilllivehere"
        .Subject = "This is the Subject of the E-mail"
        .Body = "This is the Body of the E-mail"
        .Display        ' Display the message in Outlook.
        .Attachments.Add ThisWorkbook.FullName
    End With
   
'    CLEAR.
    Set olEmail = Nothing:    Set olApp = Nothing
End Sub

Thank you for this. I see that you removed some text from the vba after "Set olEmail = olApp.CreateItem(olMailItem)". You swapped olMailItem with 0. Can you clue me in as to why tis was the error?

 

[DanteAmor]

Apparently some version of excel does not recognize the description of the OlItemType, so I use the numeric value.

OlItemType enumeration (Outlook)

Office VBA reference topic

docs.microsoft.com

Maybe someone else can tell us about the bug of this object.

 

[ReignEternal]

Apparently some version of excel does not recognize the description of the OlItemType, so I use the numeric value.

OlItemType enumeration (Outlook)

Office VBA reference topic

docs.microsoft.com

Maybe someone else can tell us about the bug of this object.

Thank you for this.