Attachment to an email

Hello,

How to I have a button on my excel sheet that I can click on that will then send the sheet as an attachment to and email? I have tried but it seems that it is trying to send it to outlook which is not my prefered mail account.

This attachment will be used by many people who may have different emails than I do so I cannot say I want it to go to outlook it needs to be able to determine what email the user has and then create an attachment that goes to the email. They can then click send and it goes to the intended address.

Hope I have explained it well

If this is a hard way of doing it I basically need the excel sheet to be sent to someone and need it the quickest and easiest way possible. I though I button type of thing would be best.

Look forward to hearing from you

Marie

This code enables you to send an email, but it uses the preferred client of Microsoft outlook to actually send the email, you can send the e-mail to whoever you want but it needs to send the e-mail from an account, for this it used Outlook.

Modify the details below and add the addresses of the people you want to send the e-mail to.

I suggest setting up your outlook with the address you want to send the email from, be this, hotmail/windows live, gmail or any exchange or pop server.

Sub Mail_workbook_Outlook_1()
'This will email the last version of the active work book
'Enter email address below
    Dim OutApp As Object
    Dim OutMail As Object

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

    On Error Resume Next
    With OutMail
        .To = "test1@test.com; test@test2.com; 3rdemail@email.com"
        .CC = ""
        .BCC = ""
        .Subject = "Email heading"
        .Body = "body of email text"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub

Hope this helps,

Mike