E-mailing workbook using Macro not automated

[vuppelschoten]

Hello

I am trying to create a Macro in Excel that will allow me to send a workbook to a predefined e-mail address and with a subject I specify. For example:

Application.Dialogs(xlDialogSendMail).Show "123@abc.com", "hello"

Problem I have is that it opens the e-mail window, adds the workbook, e-mail address and the subject, but it doesn't automatically send it. The Dialogue box remains open but I need to manually press the send button (Outlook 2010). Is there any way to automate this?

Thanks
Vincent

 

[bensonsearch]

Hi,

i use the below to send emails with no box or notification

 Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim user As Variant
        
        
   
    user = "[EMAIL="email@email.com"]email@email.com[/EMAIL]" 
    
     
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strbody = "insert body of email"
    On Error Resume Next
    With OutMail
        .To = user
        .CC = ""
        .BCC = ""
        .Subject = "Insert subject here"
        .body = strbody
        'You can add a file like this
        '.Attachments.Add ("C:\test.txt")
        .Send   
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing