إرسال إيميل عن طريق برنامج الـ آوت لوك - كود فيجوال بيسك 6 - - منـتديـات منـظمـة الإخـتـراق الـعـالـمـية

HaCkEr X19 · منذ /07-25-2008, 04:38 PM

السلام عليكم ورحمة الله تعالى وبركاته
هذا كود لإرسال بريد إلكتروني عن طريق برنامج الـ outlook المعروف

كود:

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 = الموضوع
   .To = المستقبل
   .body = الرسالة
   .Send
End With
'
Set oLapp = Nothing
Set oItem = Nothing
'
Exit Sub
errorHandler:
Set oLapp = Nothing
Set oItem = Nothing
Exit Sub
End Sub

invisible-vuris · منذ /07-25-2008, 05:50 PM

نقرتين لعرض الصورة في صفحة مستقلة ما فهمت المقصود من هدا

الملاك الحارس · منذ /07-25-2008, 08:36 PM

====>؟؟؟؟؟؟؟؟

الملاك الحارس · منذ /07-25-2008, 08:38 PM

===>غير مفهوم و اظنه منقول<===

HaCkEr X19 · منذ /07-26-2008, 04:37 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة monta9im

ما فهمت المقصود من هدا

اقتباس:

المشاركة الأصلية كتبت بواسطة الملاك الحارس

====>؟؟؟؟؟؟؟؟

اقتباس:

المشاركة الأصلية كتبت بواسطة الملاك الحارس

===>غير مفهوم و اظنه منقول<===

كيف مافهمتوا شي
أكيد لأنكم مبتدئين
أوكي
رح أكتب الكود مع أماكن التعديل

كود:

Public Sub هنا أكتبوا الأمر(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 = هنا موضوع الرسالة
   .To = هنا بريد المستقبل
   .body = هنا تكتب الرسالة
   .Send
End With
'
Set oLapp = Nothing
Set oItem = Nothing
'
Exit Sub
errorHandler:
Set oLapp = Nothing
Set oItem = Nothing
Exit Sub
End Sub