ارسال بريد الكتروني باستخدام Ole

كود :
Private Sub Send_Email(Subject As String, MessageText As String, RecipientName As String)

Dim objSession As Object

Dim objMessage As Object

Dim objRecipient As Object



' Create the Session Object

Set objSession = CreateObject("mapi.session")



' Logon using the session object

' Specify a valid profile name if you want to

' Avoid the logon dialog box

objSession.Logon profileName:="MS Exchange Settings"



' Add a new message object to the OutBox

Set objMessage = objSession.Outbox.Messages.Add



' Set the properties of the message object

objMessage.subject = Subject

objMessage.Text = MessageText



'Add a recipient object to the objMessage.Recipients collection

Set objRecipient = objMessage.Recipients.Add



'Set the properties of the recipient object

objRecipient.Name = RecipientName

objRecipient.Type = mapiTo

objRecipient.Resolve

'Send the message

objMessage.Send showDialog := False

MsgBox "Message sent successfully!"

' Logoff using the session object

objSession.Logoff

End Sub