كيف أرسل الى مجموعه عن طريقvb

السلام عليكم

يمكنك ارسال الرسائل بoutlook

أضف الأداة: Microsoft MAPI Controls 6.0

الملف msmapi32.ocx

وهي أداة جاهزة تأتي مع الفيجوال بيسك، ويمكن منخلالها عمل ماذكرت.

Private Sub Command1_Click()
MAPISession1.SignOn
MAPISession1.DownLoadMail = False
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1

        MAPIMessages1.MsgNoteText = "this is message"
        MAPIMessages1.MsgSubject = "this is subject"
        MAPIMessages1.RecipIndex = 0
        MAPIMessages1.RecipType = 2
        MAPIMessages1.RecipDisplayName = "myaddress@mycom.com"
        MAPIMessages1.Send False


MAPISession1.SignOff
End Sub

ولإرسال مرفقات يمكن استخدام الطريقة:

AttachmentPathName

جرب هذا البرنامج , لا يحتاج الى وجود اوت لوك:

/index.php?showtopic=44260

مشكورين على حسن أرائكم .

رأحرجتونا بسرعة تجاربكم معنا.