VBA to send email

[danbates77]

Hi,

I am not sure what I'm about to ask is possible but let's see.

I want to be able to send an email via VBA but it can't be through the following code because it doesn't work on my works PC.

Sub Email()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
    With OutMail
        .to = ""
        .to = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add 
        
        ' You can add other files by uncommenting the following line.
        '.Attachments.Add ("C:\test.txt")
        ' In place of the following statement, you can use ".Display" to
        ' display the mail.
        .Send
    End With
    On Error GoTo 0
    MsgBox "File sent successfully"
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

I have this code that opens up my email and I was wondering if it could be merged into a code, so it does the same as the code above,but works on my works PC.

Sub EmailNew()
Shell "C:\Windows\explorer.exe C:\Users\Public\Desktop\Microsoft Outlook Web Access.url"
End Sub

Any help would be appreciated
Thanks
Dan

 

[rollis13]

You can't use VBA to send emails because Outlook Web Access (OWA) doesn't have an Object library for Excel; using VBA requires desktop Outlook.

 

[danbates77]

Ok and thank you

 

[Automatrix]

You may be able to have Power Automate send emails based on the data in your workbook.

 

[danbates77]

Can you give me any more info on how to do that please?

 

[Automatrix]

Can you give me any more info on how to do that please?

I haven't tried it myself, but a quick search revealed this: Ultimate Guide To Send Email In Power Automate [Inc 4 Full Examples]

 

[danbates77]

Ok I'll have a look into it. Thank you.