ارسال رسائل ومرفقات بالايميل (معدل)

[حمدى الظابط]

السلام عليكم 

ممكن مثال حى على هذا الموديول

#If VBA7 Then
Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#Else
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
                                (ByRef dwFlags As Long, _
                                ByVal dwReserved As Long) As Boolean
#End If

Function Is_Connected() As Boolean
Dim IEStat As Long

Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0)
End Function

Public Sub TestInternetConnection()
If Is_Connected() = True Then
         MsgBox "Connected"
       Else
            MsgBox "Not Connected"
       End If
End Sub

ثم يتم استدعاء أحد الدالتين التاليتين :

Connected()
هذه تعطيك نتيجة نعم/ لا على الإتصال
TestInternetConnection()
وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا

******************************************************************************************

[Moosak]

هذا المرفق فيه مثال مشابه 🙂 

 

حالة الاتصال بالنت.rar

[حمدى الظابط]

45 دقائق مضت, Moosak said:

هذا المرفق فيه مثال مشابه 🙂 

 

حالة الاتصال بالنت.rar 21.89 kB · 0 downloads

ممكن ارساله بصغية تانية لان برنامج الضغط غير قادر على فتح هذا الملف

[Moosak]

تفضل( مع العلم أن الملف ليس لي ، وأضنه من إبداعات أحد أعضاء المنتدى ) 🙂   :

حالة الاتصال بالنت.accdb

تم تعديل ديسمبر 17, 2022 بواسطه Moosak

[طاهر الوليدي]

المطلوب اخواني الاعزاء اضافة ميزه ارسال تقرير الى الايميل والى واتسآب. بمعنى يكون  له ثلاث وضائف 

ارسال رساله نصيه 

ارسال مرفقات 

ارسال تقرير

طبعا الى الايميل + الوتسآب

[أبو امين]

استاذي الكريم Moosak

و اخيرا برحمة الله و فضله و جهودكم الجبارة تمكنا من استعمال مثالك في ارسال الايمايل و صراحة كانت فرحتي اكثر من عارمه لطريقة شرحك للحصول على كلمة السر من حساب الجيمايل 

اشتغل المثال الذي انتظرته شهورا و شهورا 

يبقى امر واحد 

عندما نريد ارسال تقرير يخبرنا ان Form 1  غير موجودة ثم اكواد زر ارسال التقرير غير موجوده 

هل انكم  لم تتفطنوا لذلك ام الكود لم يكتمل بعد 

شكرا سيدي الكريم و جعل انجازاتكم و مساعداتكم في صالح اعمالكم في هذا الشهر المبارك 

[محمد احمد لطفى]

أستاذ أبو أمين 
الاجابة على سؤالك فى هذا الموضوع 

 

اقتباس

 

 

[XVMOHAMED]

شكرا لكم