Code to send email without attachment

[mari_hitz]

Hi Guys!

I would like to make the following question: I have a command button on a sheet from which after you click on it sends an email including the workbook as an attachment. I would like to know if there is any possibility to send the e-mail without the attachment.

Here is the code that I am using:

[/FONT]
[FONT=Calibri]Private Sub CommandButton1_Click()[/FONT]
[FONT=Calibri]Dim EmailAddress As String[/FONT]
[FONT=Calibri]'Application.Dialogs(xlDialogSendMail).Show "romina.paola.daniele@hotmail.com", "Opcion 1"[/FONT]
[FONT=Calibri]Application.Dialogs(xlDialogSendMail).Show "romina.paola.daniele@hotmail.com", "Voto Opcion 1"[/FONT]
[FONT=Calibri]End Sub[/FONT]
[FONT=Calibri]

 

[bensonsearch]

Hi,
the below will send an email for you

Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
      
    Dim user As Variant
   
    user = 'your email addresses
        
    
  
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = 'body of email
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = user
        .Subject = "Subject goes here"
        .body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing