فرستادن ايمل با mapi

ممنون مي شم راهنماي ام كنيد .

کد:

---

Private Sub Command1_Click()
    MAPIMessages1.Compose
    MAPIMessages1.RecipDisplayName = Text1.Text
    MAPIMessages1.RecipAddress = Text1.Text
    MAPIMessages1.AddressResolveUI = True
    MAPIMessages1.ResolveName
    MAPIMessages1.MsgSubject = "Despatch Reports"
    MAPIMessages1.MsgNoteText = Text2.Text
   
    MAPIMessages1.AttachmentIndex = 0
    MAPIMessages1.AttachmentPosition = 0
   
    MAPIMessages1.AttachmentPathName = CommonDialog1.FileName
   
    MAPIMessages1.Send False

    MsgBox "Successfully Sended"

End Sub

Private Sub Command2_Click()
    CommonDialog1.ShowOpen
    lblFile.Caption = lblFile.Caption & CommonDialog1.FileName
End Sub

Private Sub Form_Load()
    MAPISession1.SignOn
    MAPIMessages1.SessionID = MAPISession1.SessionID
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MAPISession1.SignOff
End Sub

---

سلام.
Romina خانم لطفا برای قرار دادن کدها از تگ کد (علامت # در حالت پیشرفته ارسال پاسخ) استفاده کنید تا کدها مرتب شده نمایش داده بشن.

اصلاح شد.
.
.