[hannileo]

السلام عليكم ورحمة الله وبركاته ,,,
كل عام وانتم بخير 

السؤال: عندي مربع نص text1 حصراً وليش Label 

بداخل مربع النص يحتوي على يايمل لشخص محدد عند


المطلوب : عمل رابط تشعبي لفتح برنامج الايميل مع نسخ الايميل داخل مربع To في برنامج outlook

ملاحظة اذا كانبالامر الصعب لامانع من استخدام اداة مختلفة عن اداة text ولكن بنفس الوظائق اي يمكن الاضافة والتعديل 


وشكراً لكم

[Ahmed_Mansoor]

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا مثال يستخدم أداة الـ RichTextBox , بالتوفيق .

[hannileo]

(29-05-20, 05:15 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , هذا مثال يستخدم أداة الـ RichTextBox , بالتوفيق 

شكراً لك أستاذ احمد على ردك ولكن للاسف لم يعمل معي المثال أظهر بعض الاخطاء

ولكن انا بصراحة اعجبني هذا الكود حصلت  من موقع اجنبي
ولكن ايضاً ظهر بعض المشاكل مع العلم انني استخدم نسخة جديدة من outllook وقمت باضافة MS Outlook 16.0 Object Library


الرسالة تظهر كما بالصورة 

كود :

Option Explicit

'Add a reference to MS Outlook xx.0 Object Library
Private Sub CmdEnable_Click()
   Dim oApp As Outlook.Application
   Dim oEmail As Outlook.MailItem
   Set oApp = New Outlook.Application
   Set oEmail = oApp.CreateItem(olMailItem)
   With oEmail
       .To = "meow@example.com"
       .CC = "ruff@example.com"
       .Subject = "Spam - Meow!!!"
       .BodyFormat = olFormatPlain
       .Body = "Blah, blah, blah..."
       .Importance = olImportanceHigh
       .ReadReceiptRequested = True
     
       .Recipients.ResolveAll
       .Save
       .Display 'Show the email message and allow for editing before sending
       '.Send 'You can automatically send the email without displaying it.
   End With
   Set oEmail = Nothing
   oApp.Quit
   Set oApp = Nothing
End Sub

[مصمم هاوي]

بارك الله فيك أستاذنا الكريم أحمد منصور فالمثال يعمل بكفاءة