إرسال بريد إلكتروني لمجموعة من السجلات

تفضلي اختي الكريمة : لمياء

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

Private Sub CmdSendALL_Click()
On Error GoTo Err_CmdSendALL_Click

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fromMail, toMail, EmailSubject, EmailBody As String

fromMail = "lamyaa@test0.com"
EmailSubject = "PDF Report"
EmailBody = "Report in attachments"

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Q1", dbOpenDynaset)
If Not (rst.EOF And rst.BOF) Then
    rst.MoveFirst
    Do Until rst.EOF = True
    toMail = [Forms]![Form1]![Email]
    DoCmd.SendObject acReport, "Report2", acFormatPDF, toMail, "", "", EmailSubject, EmailBody, False
    rst.MoveNext
    DoCmd.GoToRecord , , acNext
    Loop
Else
    MsgBox "معذرة اخي الكريم .... لا يوجد سجلات  ", vbCritical, "تنبيه"
End If

MsgBox "تم ارسال البريد مع المرفقات للجميع", vbInformation, "مبروك"

rst.Close
Set rst = Nothing

Exit_CmdSendALL_Click:
    Exit Sub

Err_CmdSendALL_Click:
    MsgBox Err.Description
    Resume Exit_CmdSendALL_Click
End Sub

لا تنسانا من التقييم بارك الله بك

تم تعديل الملف المرفق في آخر المشاركة

بالتوفيق

تسلم الايادي

و لكن ما استخدامات البريد الالكتروني مع مرفق pdf

+1

شكرا

zahrah كتب:

تفضلي اختي الكريمة : لمياء

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

Private Sub CmdSendALL_Click()
On Error GoTo Err_CmdSendALL_Click

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fromMail, toMail, EmailSubject, EmailBody As String

fromMail = "lamyaa@test0.com"
toMail = [Forms]![Form1]![Email]
EmailSubject = "PDF Report"
EmailBody = "Report in attachments"

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Q1", dbOpenDynaset)
If Not (rst.EOF And rst.BOF) Then
    rst.MoveFirst
    Do Until rst.EOF = True
    DoCmd.SendObject acReport, "Report2", acFormatPDF, fromMail, toMail, "", EmailSubject, EmailBody, False, ""
    rst.MoveNext
    Loop
Else
    MsgBox " معذرة اخي الكريم .... لا يوجد سجلات  ", vbCritical, "تنبيه"
End If

MsgBox "تم ارسال البريد للكل بنجاح", vbInformation, "مبروك"


rst.Close
Set rst = Nothing

Exit_CmdSendALL_Click:
    Exit Sub

Err_CmdSendALL_Click:
    MsgBox Err.Description
    Resume Exit_CmdSendALL_Click
End Sub

لا تنسانا من التقييم بارك الله بك

بالتوفيق

كم أنت رائعة أيتها الزهرة :ty:

الله يصلح لك أولادك ويحفظهم ، ويوفقك دنيا وآخرة

أختي الكريمة ..

واجهتني مشكلة وهي أن عنوان المرسل إليه خطأ، أي أنه ثابت للجميع !

حاولت التعديل على الكود وأضفت : toMail = rst.Fields("Email")

    Do Until rst.EOF = True
    toMail = rst.Fields("Email")
    DoCmd.SendObject acReport, "Report2", acFormatPDF, toMail, , "", EmailSubject, EmailBody, False, ""
    rst.MoveNext
    Loop

المشكلة التي تواجهني أن التقرير يفترض أن يكون متغيراً لكل سجل إلا أنه ثابت على السجل الأول

تفضلي اخي الكريمه

جربي هذا الملف بعد التعديل

تم تعديل الملف المرفق في آخر المشاركة

بالتوفيق

بداية يا أم عهود أشكرك من أعماق قلبي على تعاونك وسعة صدرك، أدعو الله أن يزيدك علما .

أخيه جربت التعديل الأخير ولكن لازال يرسل التقرير نفسه (تقرير لمياء) إلى الجميع .. بينما المطلوب أن يتم إرسال تقرير كل فتاه لعنوان بريدها ، تقرير لمياء إلى لمياء، تقرير ريم إلى ريم ، تقرير ليلى إلى ليلى.

والله إني خجلة منك يا أم عهود .. ولكن تحملينا ، وفي ميزان حسناتك إن شاء الله

Lamyaa كتب:

بداية يا أم عهود أشكرك من أعماق قلبي على تعاونك وسعة صدرك، أدعو الله أن يزيدك علما .

أخيه جربت التعديل الأخير ولكن لازال يرسل التقرير نفسه (تقرير لمياء) إلى الجميع .. بينما المطلوب أن يتم إرسال تقرير كل فتاه لعنوان بريدها ، تقرير لمياء إلى لمياء، تقرير ريم إلى ريم ، تقرير ليلى إلى ليلى.

والله إني خجلة منك يا أم عهود .. ولكن تحملينا ، وفي ميزان حسناتك إن شاء الله

تفضلي اختي الكريمة

يتم ارسال البريد الى كل السجلات كل سجل ببريده الخاص مع المرفقات

تم تعديل الملف المرفق في آخر المشاركة

بالتوفيق

لازالت نفس المشكلة تقرير لمياء يرسل لجميع الفتيات

لاحظي ياعزيزتي أن عنوان المرسل إليه هو بريد خديجة .. ولكن التقرير المرفق هو تقرير لمياء :wacko:

تفضل اختي الكريمه

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

za-SendEmail-2012.rar

بالتوفيق

zahrah كتب:

تفضل اختي الكريمه

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

za-SendEmail-2012.rar

بالتوفيق

كلمات الشكر والعرفان لا تكفيك أيتها الزهرة المتألقة

دعواتي لك بالتوفيق