تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007
#1
كاتب الموضوع : Norhan Adel

Declaration

كود :
' No special decelerations
' Just make sure that Microsoft Outlook 2000 or 2003 is installed.
' Outlook Error parser by: Elton House
Code

كود :
Function SendMail(Recipient, MailSubject, TextBody, FileAttachment)
Set Outlook = CreateObject("Outlook.Application")
Set OutlookMail = Outlook.CreateItem(0)
Set Attachment = OutlookMail.Attachments
OutlookMail.To = Recipient
OutlookMail.Subject = MailSubject
OutlookMail.Body = TextBody
Attachment.Add FileAttachment, 1, 1, "File Attachment"
'OutlookMail.Send
OutlookMail.Display
SendKeys "%{s}", True
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف ارسل ايميل دوري من خلال Outlook shalapyx 1 688 03-03-15, 12:38 AM
آخر رد: shalapyx
  إجراء اتصال هاتفي عن طريق Api RaggiTech 0 623 17-10-12, 04:37 PM
آخر رد: RaggiTech
  حماية البرامج عن طريق سيريال الهارد RaggiTech 0 829 17-10-12, 03:15 PM
آخر رد: RaggiTech
  ارسال ايميل باستخدام Microsoft Outlook RaggiTech 0 771 17-10-12, 02:39 PM
آخر رد: RaggiTech
  ارسال ايميل باستخدام برنامج آوت لوك RaggiTech 0 368 17-10-12, 12:14 AM
آخر رد: RaggiTech

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


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