Email Macro Help

[Sarah Montgomery]

Hello,

Trying to create a document to automatically send an email out from excel using Gmail instead of Outlook. Here's my problem:

Sub Mail_ActiveSheet()
'Working in 97-2010
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim i As Long
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objInbox As Object
Dim objMailItem As Object
Set objGmail = CreateObject("Gmail.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
' Set objInbox = objNameSpace.Folders(1)
Set objMailItem = objOutlook.CreateItem(0)
Dim Subject As String
Dim Body As String

Can anyone help? (highlighted in red above)

 

[GWteB]

The local Outlook application and the webbased Gmail service are two different things. You have to use CDO for this.
Have a look at those two articles.

Home | Ron de Bruin Excel Automation

Welcome to https://www.rondebruin.nl

www.rondebruin.nl

Send Email From Your Gmail Account with VBA - Learn Data Analysis

Gmail, the world most popular email service. In this tutorial, I will walk you through how to write a VBA script to send an email from your Gmail account.

learndataanalysis.org