فيما يلي مثال على رمز VBA لإرسال بريد إلكتروني من Microsoft Excel باستخدام Microsoft Outlook كعميل بريد إلكتروني:
Sub EnvoyerEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim Destinataire As String
Dim Sujet As String
Dim Corps As String
Destinataire = "adresse_email@exemple.com"
Sujet = "Objet de l'email"
Corps = "Corps de l'email"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Destinataire
.Subject = Sujet
.Body = Corps
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
ما عليك سوى استبدال قيم المستلم والموضوع والجسم بالقيم التي تريدها لبريدك الإلكتروني وتشغيل الماكرو بالنقر فوق "تشغيل" أو الضغط على "F5".
