Forum Discussion

rrMallade's avatar
rrMallade
Copper Contributor
Aug 19, 2021

Macros

Hi Community,

 

I have created a tool using macros in office 2016 however it is not running in 2010 version. Kindly suggest how can I run it in both. Please go through the code for your reference.

 

Sub Sent_Email()

Dim OAEmail As Outlook.Application
Set OAEmail = New Outlook.Application

Dim OAEmailItem As Outlook.MailItem
Set OAEmailItem = OAEmail.CreateItem(olMailItem)

OAEmailItem.To = Sheets("Email").Range("C8")
OAEmailItem.CC = Sheets("Email").Range("C9")
OAEmailItem.Subject = Sheets("Email").Range("C11")
OAEmailItem.Body = Sheets("Email").Range("C14") & vbNewLine & _
Sheets("Email").Range("C15") & vbNewLine & vbNewLine & _
Sheets("Email").Range("C16") & vbNewLine & vbNewLine & _
Sheets("Email").Range("C17") & vbNewLine & vbNewLine & _
Sheets("Email").Range("C18")

OAEmailItem.Display


End Sub

2 Replies

Resources