How to attach an email on EXCEL?

[amw26729]

I was wondering how to attach an email to an Excel program?

 

[Logit]

.
If you mean send an email via Excel :

Option Explicit


Sub Mail_workbook_Outlook()




Dim OutApp As Object
Dim OutMail As Object
Dim sndEmail As String
Dim ccEmail As String
Dim bccEmail As String


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
sndEmail = Sheets("Sheet1").Range("D2").Value
ccEmail = Sheets("Sheet1").Range("D3").Value
bccEmail = Sheets("Sheet1").Range("D4").Value


On Error Resume Next
With OutMail
.To = sndEmail
.CC = ccEmail
.BCC = bccEmail
.Subject = "Implementation of Qlik"
.Body = "Dear colleague," & _
        "We are happy to inform you that Qlik has been successfully implemented for all reporting solution and document storage solution, where you will be able to retrieve customs related documents, issued prior or during the customs clearance, including (but not limited to) customs declaration, AWB, Invoice, etc."


.Display
End With
On Error GoTo 0




Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Download workbook : https://www.amazon.com/clouddrive/share/ahceJ99Zaoqzqn6YRCsKmD3iAiBsg7wqBj6APyoE7ZK