משלוח דבר דואר מ-Com Addin - הטקסט מאופס

[Epelman]

כתבתי מקרו אשר שולח הודעת email לרשימת תפוצה.
השיטה: מכין טיוטה של ה-email למשלוח ומוסיף את שם רשימת התפוצה כמכותב. עובד
בסדר גמור.
אני מנסה לכתוב את המקרו כ-Com Addin בעזרת Visual Studio 2008 VB ומצליח לבצע
את המשלוח אך עם בעיה קטנה: הטקסט מאופס ???? אם בטיוטה יש מסמכיעם מצורפים הם
מועברים ללא בעיות.

להלן המקור מפושט - אשמח לכל סיוע - העריכה לקויה בגלל העברית אך מקווה שניתן
לקרא תקין

Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Startup
MyForwardSend()
End Sub

Private Sub MyForwardSend()

Dim myApp As Outlook.Application
Dim myFolderDrafts As Outlook.MAPIFolder
Dim myForward As Outlook.MailItem
Dim myMail As Object 'Outlook.MailItem
Dim myNameSpace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient

myApp = CreateObject("Outlook.Application")
myNameSpace = myApp.GetNamespace("MAPI")
myFolderDrafts = myNameSpace.GetDefaultFolder
(Outlook.OlDefaultFolders.olFolderDrafts) ' מוצא את הfolder של הטיוטות

myMail = myFolderDrafts.Items.Item(myFolderDrafts.Items.Count)
myForward = myMail.Forward ' לוקח הטיוטה

myRecipient = myForward.Recipients.Add("Test") ' מוסיף לה את רשימת
התפוצה כמכותב

myForward.Save() ' שומר
myForward.Send() ' ושולח
End Sub