使用mapi控件来发email.(88分)

Question

这个我自己作过,提供source code!
        dim addressTo1 as string ,addressTo2 as string
        dim addressCc1 as string ,addressCc2 as string
        MAPIMessages1.MsgIndex = -1
        MAPIMessages1.Compose'构成一条消息。
        MAPIMessages1.RecipAddress = addressTo1
        MAPIMessages1.RecipType = 1
        MAPIMessages1.RecipIndex = MAPIMessages1.RecipIndex + 1
        MAPIMessages1.RecipAddress = addressTo2
        MAPIMessages1.RecipType = 1
        MAPIMessages1.RecipIndex = MAPIMessages1.RecipIndex + 1
        MAPIMessages1.RecipAddress = addressCc1
        MAPIMessages1.RecipType = 2
        MAPIMessages1.RecipIndex = MAPIMessages1.RecipIndex + 1
        MAPIMessages1.RecipAddress = addressCc2
        MAPIMessages1.RecipType = 2
        MAPIMessages1.Send
        MAPISession1.Action = 2
        MAPIMessages1.SessionID = 0

Answer 1

给你 参考参考Private Sub cmdSendSummary_Click()
    ' this command button is used to start a
    '     MAPI session, log on the the
    ' mail service, attach the created check
    '     summary text file to a new
    ' message, send the message and then clo
    '     se the session
    ' declare local variables here
    Dim strUserId As String
    Dim strPassword As String
    Dim strFileName As String
    Dim strFilePath As String
    
    ' set the mouse pointer to indicate the 
    '     app is busy
    Screen.MousePointer = vbHourglass
    
    ' set the values for the file name and t
    '     he file path
    strFileName = "" ' this is where you would put any file attachments
    strFilePath = App.Path & "\"
    
    ' set the user name and password propert
    '     ies on the session control
    mapiLogOn.UserName = "JJones" ' network user name and password !
    mapiLogOn.Password = "******"
    
    ' start a new email session
    
    mapiLogOn.SignOn
    Do While mapiLogOn.SessionID = 0
        
        DoEvents ' need To wait until the new session is created
        Loop
        
        'create a new message and address it
        
        MAPIMessages1.SessionID = mapiLogOn.SessionID
        MAPIMessages1.Compose
        MAPIMessages1.RecipDisplayName = "Jones,John"
        MAPIMessages1.AddressResolveUI = True
        MAPIMessages1.ResolveName
        MAPIMessages1.RecipAddress = "smtp:[email protected]" 
        ' note that I prefixed the address with 
        '     "smtp". This is required by exchange 
        ' server, or it does not know what servi
        '     ce to use for outgoing mail.
        MAPIMessages1.MsgSubject = "Test of the Email function"
        MAPIMessages1.MsgNoteText = " This is a test of the email function, If you" _
        & "receive this Then the program has worked successfully." & vbCrLf
        ' attaching the file
        MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText) - 1
        ' the line above places the attachment a
        '     t the end of the text.
        MAPIMessages1.AttachmentPathName = strFilePath & strFileName
        
        ' now send the message
        MAPIMessages1.Send False
        mapiLogOn.SignOff
        MsgBox "File sent To specified receiptent."
        
        ' now set the mouse pointer back to norm
        '     al
        Screen.MousePointer = vbNormal
        
    End Sub