المساعدة في كيف ارسل ايميل الى ايميل شخص في نموذج

[بن شجاع الدين]

سلام عليكم اخواني,

ارجو المساعدة في التعرف على كيف يمكن ان يتم ارسال ايميل الى outlook  من نموذج مفتوح يحتوي الأيميل على بعض البيانات من النموذج وباقي الأيميل template جاهز . مع العلم بان ايميلات الاشخاص موجودة في جدول بيانات الموردين  وليس في النموذج .  ولا يتم ارسال الأيميل الا بعد المراجعة من المستخدم .

وشكرا مقدما للجميع

تم تعديل فبراير 19, 2017 بواسطه بن شجاع الدين

[Mostafa Elmahmoudy]

جرب القاعدة دى 

بس لازم يكون الميل اللى هاتبعت منه Gmail

 

و انشاء الله تكون هى اللى بتدور عليها

بالتوفيق

send mail.rar

[Shivan Rekany]

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

sendemail.rar

[بن شجاع الدين]

سلام عليكم وشكرا جزيلا اخواني,

هل بالأمكان الحصول على مرفقات في طريقة الأوتلوك,

[بن شجاع الدين]

سلام عليكم اخواني

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

ما انا بحاجته وكما هوا موضح في المثال المرفق ارسال ايميل من نموذج بزر امر يحصل على بيانات الأيميل من نموذج او جدول اخر ويحصل على بيانات اخرى لنفس الأيميل من مجلد ثاني , وايضا يقوم باخذ معلومات اضافية من نفس النموذج الذي فيه زر الأمر.

ارجو المساعدة لأني عجزت .

مع العلم باني مبتدى في مجال ال VBA وامكانياتي محدودة واطمع في كرمكم في ان احصل على طلبي مبني على المثال المرفق.

ولكم جزيل الشكر .

EMAIL TO.rar

[Mostafa Elmahmoudy]

في ٢٢‏/٢‏/٢٠١٧ at 05:52, Shivan Rekany said:

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

sendemail.rar

الطريقة دى ممتازة

و انا باشكرك يا اخى

[بن شجاع الدين]

شكرا جزيلا للجميع :

وصلت الى ما اريد بطريقتين  مختلفتين , واليكم الكود

 

 

 

Private Sub SENDEMAIL_Click()

 On Error Resume Next

 VENDORID = Me.VENDORID
  
    emailto = DLookup("[VEMAIL]", "VENDORS DETAILS", "[ID] = VENDORID")
    emailcc = DLookup("[Action Data]", "Emailing data", "[ID] = 1")
   
    emlsubject = DLookup("[Subject]", "Emailing data", "[ID] = 1")
    emltxtbody = DLookup("", "Emailing data", "[ID] = 1")

emiltxt1 = Me.VENDOR_NAME & vbCrLf & vbCrLf & vbCrLf & vbCrLf & " In order to proceed with your payment for PO      ( " & Me.PO & " )   kindly invoice us with the amount of USD   (" & Me.PaymentiD & "  )  instead of     ( " & Me.AMOUNT & "  ) in your invoice  Number:  ( " & Me.INVNumber & ") received on   ( " & Me.INVDATE & ")  ." & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "Regards," & vbCrLf & vbCrLf & "  Billing Department "
emlsubject1 = "Amendment Request  of your Invoice:  (" & Me.INVNumber & ")  for PO No ( " & Me.PO & ")"
      On Error Resume Next
   DoCmd.SendObject , , acFormatXLSX, emailto, emailcc, , emlsubject1, emiltxt1, True, True
  

End Sub