ارسال التقرير الى ايميل موجود بالكود عن طباعة الفاتورة

[أيمن عبادي]

تحية طيبة وبعد

يوجد نموذج الفاتورة في زر طباعة . يقوم بطباعة الفاتورة الحالية ، والمطلوب إضافة كود في الزر يقوم بإرسال التقرير الى ايميل موجود في الكود 

وتقبلوا تحياتي..

شاكرين لكم

Send hidden email.rar

[أيمن عبادي]

للرفع .. تحياتي

[ابو محمد 316]

السلام عليكم 

ربما هذى المثال قد يفيدك

والله اعلم

بالتوفيق

Send hidden email.rar

[ابوآمنة]

إرسال بدون أوت لوك

[أيمن عبادي]

تحياتي أخي أبومحمد 316

الف شكر على جهودك

ولكن اقصد هو ان يتم ارسال السجل الحالي في التقرير الى ايميل مدون في الكود 

حيث انه عند طباعة الفاتورة يتم ارسالها الى الايميل مباشرة بدون اوتلوك أو غيره 

 

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

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

[أيمن عبادي]

للرفع 😔

 

[ASSOUSI]

 

[أيمن عبادي]

ASSOUSI بارك الله فيك اخي

أخي لقد رايت في برامج ودروس كثيره مثل هذا النوع

ولكن المطلوب هو عند الضغط على طباعة الفاتورة يتم مباشرة ارسال بيانات الفاتورة إلى  ايميل مسجل في الكود وبدون ان يشعر موظف الكاشير بذلك

ولقد سالت كثيرا عن ذلك ورايت لدى احدى المؤسسات التي تقوم بطباعة الفواتير يحيث يتم ارسال بيانات الفاتورة الى ايميل مكتوب في زر الطباعة

أتمنى ان يساعدني الاخوة الافاضل 

[ASSOUSI]

السلام عليكم

مع حترامي للأساتدة الكرام

انظر ربما يفيد هذا المثال

تحياتي

Email.rar

[أيمن عبادي]

ASSOUSI الشكر الجزيل لك اخي

ولكن اعتقد ان هناك ملف موديل ناقص  لان الكود يحتوي على استدعاء ل 

Call SendGMail

ارجو التأكد

وبارك الله في جهودك

منتظر ردك الكريم

 

 

[ابو ياسين المشولي]

39 دقائق مضت, أيمن عبادي said:

ASSOUSI الشكر الجزيل لك اخي

ولكن اعتقد ان هناك ملف موديل ناقص  لان الكود يحتوي على استدعاء ل 

Call SendGMail

ارجو التأكد

وبارك الله في جهودك

منتظر ردك الكريم

 

 

لوبحثت عن الكود لوجدته

بنفس النموذج

Sub SendGMail()
    Dim Msg As String
            On Error GoTo ErrHandler:
    ' Object creation
    Set objmsg = CreateObject("CDO.Message")
    Set msgConf = CreateObject("CDO.Configuration")
      
    ' Server Configuration
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = [mail]
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = [Texte6]
    msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    msgConf.Fields.Update
      
    ' Email
    objmsg.To = [Texte1]
    objmsg.From = [mail]
    objmsg.Subject = [Texte3]
    objmsg.HTMLBody = [Texte4]
    objmsg.Sender = [mail]
   objmsg.AddAttachment [Texte5]
    Set objmsg.Configuration = msgConf
      
    ' Send
    objmsg.Send
      
    ' Clear
    Set objmsg = Nothing
    Set msgConf = Nothing
Exit Sub


ErrHandler:
If Err.Number = -2147220975 Then
    MsgBox "تأكد من البريد الالكتروني  و كلمة المرور الخاصه بك", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الارسال"
Else
If Err.Number = -2147220973 Then
    MsgBox "تأكد من الإتصال بالإنترنت", vbCritical + vbOKOnly + vbMsgBoxRight, "خطأ في الاتصال"
Else
If Err.Number = -2147220980 Or Err.Number = -2147220977 Then
ErrList.AddItem Texte1, ErrList.ListCount
ErrList.Requery
Resume Next
Else
If Err.Number <> 0 Then
MsgBox Err.Description & vbNewLine & Err.Number, vbCritical + vbOKOnly + vbMsgBoxRight, "رسالة خطأ"
Resume Next
End If
End If
End If
End If
End Sub

 

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

[أيمن عبادي]

بوركت أخي ... سأقوم بتطبيقه وأزودك بالنتيجة 

 

الف شكر