Here we go again with EMAIL

[dan1955]

Here I sit all broken hearter because of all the time wasted on email with VB6. Can someone PLEASE help me! I found an email program written from someone here. It goes like this:
Private Sub Command1_Click()
MAPISession1.SignOn

With Me.MAPIMessages1

.SessionID = MAPISession1.SessionID

.MsgIndex = -1

.Compose

.MsgSubject = "Order"

.RecipType = mapToList

.RecipDisplayName = "Dan"

.RecipAddress = "[email protected]"

' SHOW THE ADDRESS BOOK WITH THE SELECTED RECIPIENT(S)

' 0=NO EDIT FIELDS, 1=TO, 2=(TO AND CC), 3=(TO, CC AND BLIND CC),
' 4=ONLY THOSE SUPPORTED BY MESSAGING SYSTEM WILL BE SHOWN

.AddressEditFieldCount = 1

.MsgNoteText = "Your order is being sent"

' ADD ATTACHMENT FILE IF THE LABEL CONTAINS A SELECTED FILE

.AttachmentPosition = 0

.AttachmentName = "dan.txt"

.AttachmentPathName = "c:\products\dan.txt"

.AttachmentType = mapEOLE

' SEND THE EMAIL

.Send

End With

MAPISession1.SignOff

End Sub
The problem is, isn't mapi suppose to use the client's default mail program? Works great if you have outlook express on your computer, but what if you don't? It works up to the point of the attachment and then errors out saying that it can't find the attachment. Please respond.
Dan

[JordanChris]

What is your default E-mail program?
Does it handle MAPI commands? (like Outlook and Outlook Express do).
Or does it only handle Simple MAPI commands?

If it only handles Simple MAPI, then use the MAPI Session and MAPI Message controls (just drop them on a form, they are not visible at run time), and remove any references to MAPI from your references list.

MAPISession1.SignOn
With MAPIMessages1
        .SessionID = MAPISession1.SessionID
        .Compose
        .RecipAddress = “a.a&a.com”
        .ResolveName
‘For a second addressee add:
‘        .RecipIndex = 1
‘        .RecipAddress = "[email protected]"
‘        .ResolveName 
‘ Might need to add:
‘        .AddressResolveUI = True
 
        .MsgSubject = "My Subject"
        .MsgNoteText = "My body"
        .AttachmentIndex = 0
        .AttachmentPosition = 0
        .AttachmentPathName = "c:\temp\test.txt"
 ‘For a secnd attachment add:
 ‘       .AttachmentIndex = 1
 ‘       .AttachmentPosition = 1
 ‘       .AttachmentPathName = "c:\temp\x01.txt"
        .Send
End With
MAPISession1.SignOff

[James Stanich]

'*******************************************************************************
' SENDMESSAGETHRUOUTLOOK (SUB)
'
' DESCRIPTION:
' ACTUALLY SEND THE EMAIL MESSAGE THRU OUTLOOK
'*******************************************************************************
 
Sub SENDMESSAGETHRUOUTLOOK(DisplayMsg As Boolean, Optional AttachmentPath)
    
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    
    ' CREATE THE OUTLOOK SESSION.
    
    Set objOutlook = CreateObject("Outlook.Application")
    
    ' CREATE THE MESSAGE.
    
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    
    With objOutlookMsg
        
        ' ADD THE TO RECIPIENT(S) TO THE MESSAGE.
        
        Set objOutlookRecip = .Recipients.Add(Me.txtAddressTO.Text)
        
        objOutlookRecip.Type = olTo
        
        ' SET THE SUBJECT, BODY, AND IMPORTANCE OF THE MESSAGE.
        
        .Subject = Me.txtSubject.Text
        
        .HTMLBody = Me.txtMsg.Text
        
        .Importance = olImportanceHigh  ' HIGH IMPORTANCE
        
        ' ADD ATTACHMENTS TO THE MESSAGE.
        
        If Not IsMissing(AttachmentPath) Then
            
            Set objOutlookAttach = .Attachments.Add(Me.lblAttachment.Caption)
            
        End If
        
        ' RESOLVE EACH RECIPIENT'S NAME.
        
        For Each objOutlookRecip In .Recipients
            
            objOutlookRecip.Resolve
            
        Next
        
        ' SHOULD WE DISPLAY THE MESSAGE BEFORE SENDING?
        
        If DisplayMsg Then
            
            .Display
            
        Else
            
            .Save
            
            .Send
            
        End If
        
    End With
    
    Set objOutlook = Nothing
    
End Sub
 
 
 
'*******************************************************************************
' SENDMESSAGETHRUEXPRESS (SUB)
'
' DESCRIPTION:
' ACTUALLY SEND THE EMAIL MESSAGE THRU EXPRESS
'*******************************************************************************
 
Sub SENDMESSAGETHRUEXPRESS(DisplayMsg As Boolean, Optional AttachmentPath)
    
    MAPISession1.SignOn
    
    With Me.MAPIMessages1
        
        .SessionID = MAPISession1.SessionID
        
        .MsgIndex = -1
        
        .Compose
        
        .MsgSubject = Me.txtSubject
        
        .RecipType = mapToList
        
        .RecipDisplayName = Me.txtAddressTO
        
        .RecipAddress = Me.txtAddressTO
        
        ' SHOW THE ADDRESS BOOK WITH THE SELECTED RECIPIENT(S)
        
        ' 0=NO EDIT FIELDS, 1=TO, 2=(TO AND CC), 3=(TO, CC AND BLIND CC),
        ' 4=ONLY THOSE SUPPORTED BY MESSAGING SYSTEM WILL BE SHOWN
        
        .AddressEditFieldCount = 1
        
        .MsgNoteText = Me.txtMsg
        
        ' ADD ATTACHMENT FILE IF THE LABEL CONTAINS A SELECTED FILE
        
        If Len(Me.lblAttachment.Caption) > 0 And Me.lblAttachment.Caption > " " Then
            
            .AttachmentPosition = 0
            
            .AttachmentName = lblAttachment
            
            .AttachmentPathName = lblAttachment
            
            .AttachmentType = mapEOLE
            
        End If
        
        ' SEND THE EMAIL
        
        .Send
        
    End With
    
    MAPISession1.SignOff
    
End Sub

The MAPI / Express example requires the MAPI controls...

Outlook you must reference the Outlook Library...

or yet another way... http://216.26.168.92/vbsquare/internet/sendmail-demo/