هل يمكن ان نرسل ايميل من الاكسس بشكل مخفي

[عبد الله قدور]

السلام عليكم

اخواني الكرام وردت على بالي فكرة وهي كالتالي

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

هل من الممكن تطبيق هذه الفكرة وهل الادوات اللازمة لذلك

[ebnjabalapp]

الأمر بسيط جدا

استخدم الماكرو التالي

EMailDatabaseObject

واجعل اخر خاصية الي no

بحيث لايستطيع المستخدم الغاء الرسالة البريدية

شكرا

[عبد الله قدور]

في ٢٢‏/١‏/٢٠١٩ at 18:32, ebnjabalapp said:

الأمر بسيط جدا

جزاك الله كل خير

لكن هذا الامر يحتاج الى outlook وفي حال عدم وجوده لن ترسل الرسالة وان ارسلت سيراها المستخدم في الاوت لوك في الصادر

المطلوب عدم اطلاع المستخدم على هذه الرسالة ابدا

 

[Elsayed Bn Gemy]

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

هل عند تغيير اى بيانات سجل يقوم البرنامج تلقائيا بارسال رسالة هذا يمكن ولكن سيصيب قاعدة البيانات بالشلل

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

[ابوآمنة]

 

 

اطلع على الموضوعين لعله يفيدك 

استخدم كود cdo بدون اوت لوك

 يمكن إرسال رسالة بهذا الكود 

If InternetGetConnectedState(0&, 0&) Then

If IsNull(Me.tomail) And IsNull(Me.sub) And IsNull(Me.msg) Then
MsgBox "يجب تعبئة بريد المرسل إليه والموضوع والرسالة"
Else

Me.myname.SetFocus
Me.Command10.Enabled = False
    Dim iMsg As Object
    Dim myemail, mypassword, strBody As String
    'يجب وضع ايميلك في gmail وكلمة مروره في السطرين التاليين
    myemail = "@gmail.com"
    mypassword = ""
    Set iMsg = CreateObject("CDO.Message")
    With iMsg
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465    ' default is 25
        .Configuration.Fields.Update
        .replyto = myemail  'myemail or any other
        If Me.cc <> "" Then .cc = Me.cc            'with coma (,) separated
        If Me.bcc <> "" Then .bcc = Me.bcc         'with coma (,) separated
        .To = Me.tomail                            'with coma (,) separated
        .From = """" & Me.myname & """ <" & myemail & ">"
        .Subject = Me.sub
        .BodyPart.Charset = "UTF-8"
        '.TextBody = "plain text"                       'send pain text
        '.CreateMHTMLBody "http://www.google.com"       'send web page
        '.CreateMHTMLBody "file://c|/temp/test.htm"     'send hrml file
        .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'>عزيزي : <font style='color:red'>" & Me.toname & "</font><br /><br />" & Replace(Me.msg, vbNewLine, "<br />") & "<br />مع تحيات :<br /><font style='color:green'>" & Me.myname & "</font></div>"
        
        For i = 0 To (Me.attach.ListCount - 1)
        .AddAttachment (Me.attach.Column(0, i))
        Next
        
        .Send
    End With
Me.Command10.Enabled = True
Set iMsg = Nothing
MsgBox "تم إرسال الرسالة بنجاح", vbOKOnly, "مع تحيات أ / محمد صالح"

End If

Else
MsgBox "يجب أن تكون متصلاً بالإنترنت لكي يتم إرسال الرسائل", vbOKOnly, "مع تحيات أ / محمد صالح"
End If

في رأس المديول

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

 

في وقت سابق جرب فكرة إرسال رسالة دون علم المستخدم لكن واجهت مشكلة وهي إعدادات الأمان في الإيميل

 

 

 

تم تعديل يناير 31, 2019 بواسطه saleh204

[ابوآمنة]

7 دقائق مضت, Elsayed Bn Gemy said:

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

هل عند تغيير اى بيانات سجل يقوم البرنامج تلقائيا بارسال رسالة هذا يمكن ولكن سيصيب قاعدة البيانات بالشلل

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

رأي سديد 

وبركت أخي الكريم