تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال بريد الكتروني باستخدام Ole
#1
كاتب الموضوع : AhmedEssawy


كود :
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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال ايميل باستخدام Microsoft Outlook RaggiTech 0 801 17-10-12, 02:39 PM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 404 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 326 17-10-12, 01:01 AM
آخر رد: RaggiTech
  لعمل فورم شفاف باستخدام فيجوال بيسك RaggiTech 0 635 17-10-12, 12:58 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 391 17-10-12, 12:52 AM
آخر رد: RaggiTech
  ارسال ايميل باستخدام برنامج آوت لوك RaggiTech 0 396 17-10-12, 12:14 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم