Be the first user to complete this post Login To Mark Completed

0

Add to List Add To List..(Max 5) Close Save

Excel-VBA : Send a Simple Mail From MS Outlook Using Excel

This tutorial will teach you about how to send a simple text mail from Microsoft Outlook using excel-macro.

• Create object of Outlook Application.
• Create a Mail Item.
• Compose and Send mail using mail Item.

• Create object of Outlook Application.

Set otlApp = CreateObject("Outlook.Application")

• Create a Mail Item.

Set olMail = otlApp.CreateItem(olMailItem)

• Compose and Send mail using mail Item.

With olMail

.To = SendID

If CCID <> "" Then

.CC = CCID

End If

.Subject = Subject

.Body = Body

.Send

End With

Complete Code:

Sub sumit()
Dim mainWB As Workbook
Dim SendID
Dim CCID
Dim Subject
Dim Body

Set otlApp = CreateObject("Outlook.Application")
Set olMail = otlApp.CreateItem(olMailItem)
Set mainWB = ActiveWorkbook

SendID = mainWB.Sheets("Mail").Range("B1").Value
CCID = mainWB.Sheets("Mail").Range("B2").Value
Subject = mainWB.Sheets("Mail").Range("B3").Value
Body = mainWB.Sheets("Mail").Range("B4").Value
With olMail
.To = SendID
If CCID <> "" Then
.CC = CCID
End If
.Subject = Subject
.Body = Body
.Send

End With
MsgBox ("you Mail has been sent to " & SendID)
End Sub

---

---

Also Read:

1. VBA-Excel: Create and Save the Word document
2. VBA-Excel: Add/Insert multiple Images/Pictures from a folder in Word Document
3. VBA-Excel: Get ALL The Opened Internet Explorer (IE) using Microsoft Excel
4. VBA-Excel: Format already written text in a word document – Format All Content
5. Send Mail With Multiple Different Attachments From MS Outlook using Excel.

---