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

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

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

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

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

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

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

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

EMAIL TO.rar

[Shivan Rekany]

18 ساعات مضت, بن شجاع الدين said:

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

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

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

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

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

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

EMAIL TO.rar

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

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

هناك تريد

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

الى

ايميل اللي جدول الثاني باسم فيندور ديتايلس
هل فهمت بصح ام تريد شي اخر
تحياتي الك

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

- تقريبا معضم طرحك صحيح ولاكن  قوم بالتوضيح :

- عند النقر على زر الأمر في النموذج "Invoicer "  يتم التالي :

1- يتم اخذ ايميل المورد من الجدول "Vendor Details "  من خلال رقم المورد  الموجود في النموذج للوصول الى  الأيميل .

2- يتم الحصول على ال CC , AND BCC و ايضا الموضوع  و الرسالة من الجدول Emailing Data  نفس الأيميلات ال CC ,AND BCC   والموضوع والرسالة يتم استخدامها عند الحاجة الى  ارسال ايميل الى ال مورد محدد في النموذج . وفي هذه الحالة اريد ان يتم اخذ السجل رقم 1

3-في الأوتلوك - الأيميل يكون يحتو الموضوع على البيانات الثابتة في السجل رقم 1  Subject  و ايضا رقم الفاتورة  كمتغير يتم الحصول علية من النموذج المفتوح حاليا Invoicing 

 

 

 

مرفق ملف اكسس معدل و صور امثلة

EmaiL TO2.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

[Yasser diab]

الله ينور ياستاذ هل يمكن تطبيق المعادلة علي شيت اكسيل عن طريق المكرو بردة ولو امكن ممكن ترسل تطبيق المعادلة عشان حولت اشغل الكود ومش شغال معاية