用MAPI控件發郵件完整源代码!!


Private Sub Command1_Click()
Dim msg As String
MAPISession1.LogonUI = True '珆尨珨跺雄雄趕遺
MAPISession1.DownLoadMail = False '祥蕾撈輛蚚誧腔彶陓眊(準都衄蚚腔ㄛ祥陓斕扢峈True彸珨狟)MAPISession1.SignOn '涴秪蜆呾慾魂勘ㄛ蛁砩ㄩ祥猁參FoxMail婓IE笢扢离峈蘇萇赽蚘璃ㄛ瘁寀頗堤珋渣昫
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose '凳傖珨沭秏洘
MAPIMessages1.RecipAddress = Text1.Text '彶陓華硊MAPIMessages1.MsgSubject = Text2.Text '楷陓腔翋枙
MAPIMessages1.MsgNoteText = Text3.Text '楷陓腔囀MAPIMessages1.AttachmentIndex = 0  '絞蜇璃腔坰竘弇离
MAPIMessages1.AttachmentPathName = Text4.Text '"e:\1.txt"   '蜇璃腔繚噤'MAPIMessages1.AttachmentIndex = MAPIMessages1.AttachmentCount
'MAPIMessages1.AttachmentPathName = Text4.Text 'CMDialog1.FileName
'MAPIMessages1.AttachmentPosition = MAPIMessages1.AttachmentIndex    
 MAPIMessages1.Send '羲宎楷冞
 
  msg = "Send EMail Successfully!"
t = MsgBox(msg, vbOKOnly + vbInformation, "Notice:)")
If t = 1 Then
MAPISession1.SignOff '壽敕
Unload Me
End IfEnd SubPrivate Sub Command2_Click()
On Error Resume Next
CMDialog1.DialogTitle = "蜇樓恅璃"
CMDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.txxt)|*.txt"
CMDialog1.ShowOpen
If Err = 0 Then
     On Error GoTo 0
     'MAPIMessages1.AttachmentIndex = MAPIMessages1.AttachmentCount
     'MAPIMessages1.AttachmentName = CMDialog1.FileTitle
     'MAPIMessages1.AttachmentPathName = CMDialog1.FileName
     'MAPIMessages1.AttachmentPosition = MAPIMessages1.AttachmentIndex
     'MAPIMessages1.AttachmentType = vbAttachTypeData
     'alist.AddItem (VBMail.MAPIMess.AttachmentPathName)
     'numAtt.Caption = "蜇樓恅璃腔杅講峈ㄩ" + Str$(MAPIMessages1.AttachmentCount)
     
     Text4.Text = CMDialog1.FileName
End If
   
End Sub