احتاج مساعدة في الإكسيل

[HOUSSEIN]

السلام عليكم و رحمة الله و بركاته,
اخواني اخواتي احتاج الى مساعدة ان كان ذلك في استطاعتكم.
احتاج الى كود يرسل اميل اتوماتيك الى اوتلوك بحيث عندما يكون التاريخ في الخانة ب1 اكبر من التاريخ في الخانة س1 يرسل اميل اوتوماتيكيا الى اوتلوك.
هل هذا ممكن؟ و اشكركم جزيل الشكر

[علي الشيخ]

السلام عليكم أخي

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

وكمان موضوع الرسالة أو أي ملاحظات أخرى تخص الرسالة التي سيتم فتحها في الأوتلوك

[HOUSSEIN]

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

[علي الشيخ]

العفو أخي

اتفضل الملف المرفق لما يكون التاريخ في الخلية A2 أكبر من التاريخ في الخلية B2 سيتم فتح رسالة في الأوت لوك 

يوجد كود في الصفحة Sheet1

ويوجد كود أيضا " خاص بالأوتلوك" في Module 1

بالإمكان إضافة الإيميلات التي سيتم الإرسال لها مسبقا

ومحتوى الرسالة

وموضوع الرسالة .. إلخ 

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

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

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

 

email via outlook.rar

[HOUSSEIN]

 هل ممكن عندما يتحقق الشرط ان يرسل الاميل اوتوماتيكيا دون ضغط على زر الارسال في الاوتلوك؟؟؟ شكرا جزيلا اخي علي

[علي الشيخ]

استبدل هذه الجزئية في الكود الموجود في Module 1
 

.Display
      .Subject = ""
      .To = ""
      .CC = ""
      .bcc = ""
      .HTMLBoDy = strbody & "<br>" & .HTMLBoDy

بهذه الجزئية
 

      .Subject = ""
      .To = ""
      .CC = ""
      .bcc = ""
      .HTMLBoDy = strbody & "<br>" & .HTMLBoDy

.Send