[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