كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007

كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 (/showthread.php?tid=6040)

كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 - RaggiTech - 17-10-12

كاتب الموضوع : 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