ارسال ایمیل از اکسل به Outlook

این آموزش نحوه ارسال یک نامه متنی ساده از Microsoft Outlook با استفاده از  Excel را به شما آموزش می دهد.

• ایجاد شی از برنامه Outlook.
• یک مورد ایمیل ایجاد کنید.
• نوشتن و ارسال نامه با استفاده از مورد ایمیل.

 

• ایجاد شی از برنامه Outlook.

Set otlApp = CreateObject("Outlook.Application")

• یک مورد ایمیل ایجاد کنید.

Set olMail = otlApp.CreateItem(olMailItem)

 

• نوشتن و ارسال نامه با استفاده از مورد ایمیل.

With olMail
.To = SendID
If CCID <> "" Then
.CC = CCID
End If
.Subject = Subject
.Body = Body
.Send
End With

کد کامل:

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