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


كود :
Public Sub SendOutlookMail(Subject As String, Recipient As _
String, Message As String)
On Error GoTo errorHandler
Dim oLapp As Object
Dim oItem As Object
Set oLapp = CreateObject("Outlook.application")
Set oItem = oLapp.createitem(0)
'
With oItem
.Subject = Subject
.To = Recipient
.body = Message
.Send
End With
'
Set oLapp = Nothing
Set oItem = Nothing
'
Exit Sub
errorHandler:
Set oLapp = Nothing
Set oItem = Nothing
Exit Sub
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج للتحويل بين انظمة العد المختلفة abulayth 6 2,301 06-05-15, 03:49 PM
آخر رد: ro3h
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 380 04-04-15, 05:57 PM
آخر رد: abulayth
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 694 03-03-15, 12:38 AM
آخر رد: shalapyx
  الا تحلم بقنوات تلفزية على خيارك .. انتظر ... بامكانك تاثيث برنامج لقنواتك المفضلة derbaliammar 0 678 17-07-13, 05:46 AM
آخر رد: derbaliammar
  برنامج توليد ارقام عشوائية من عشر منازل RaggiTech 0 798 17-10-12, 03:10 PM
آخر رد: RaggiTech
  تفضلو برنامج بسيط (بمناسبة شهر رمضان الكريم) RaggiTech 0 527 17-10-12, 03:09 PM
آخر رد: RaggiTech
  كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 RaggiTech 0 586 17-10-12, 02:40 PM
آخر رد: RaggiTech
  ارسال ايميل باستخدام Microsoft Outlook RaggiTech 0 772 17-10-12, 02:39 PM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 393 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 312 17-10-12, 01:01 AM
آخر رد: RaggiTech

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


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