تقييم الموضوع :
  • 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
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الا تحلم بقنوات تلفزية على خيارك .. انتظر ... بامكانك تاثيث برنامج لقنواتك المفضلة derbaliammar 1 6,655 13-04-21, 04:29 PM
آخر رد: misquinetata
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 3 4,889 26-06-19, 03:15 AM
آخر رد: Amir_Alzubidy
  برنامج للتحويل بين انظمة العد المختلفة abulayth 6 8,305 06-05-15, 03:49 PM
آخر رد: ro3h
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 2,920 04-04-15, 05:57 PM
آخر رد: abulayth
  برنامج توليد ارقام عشوائية من عشر منازل RaggiTech 0 2,688 17-10-12, 03:10 PM
آخر رد: RaggiTech
  تفضلو برنامج بسيط (بمناسبة شهر رمضان الكريم) RaggiTech 0 2,191 17-10-12, 03:09 PM
آخر رد: RaggiTech
  كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 RaggiTech 0 2,963 17-10-12, 02:40 PM
آخر رد: RaggiTech
  ارسال ايميل باستخدام Microsoft Outlook RaggiTech 0 3,134 17-10-12, 02:39 PM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 1,939 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 1,946 17-10-12, 01:01 AM
آخر رد: RaggiTech

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


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