MAPI Illegal operation

[sandeep_id]

Hi guys,

I'm getting the error "This program has performed illegal operation error" when I access even a simple property of Mapi.session object. My deafault mail client is Outlook.

eg. The following code displays the CurrentUser name but after dispaying it, VB gets closed by saying "This program has performed illegal operation"

Private Sub Command1_Click()
Dim oSession As Mapi.Session
Set oSession = New Mapi.Session
oSession.Logon "", "", False, False
MsgBox oSession.CurrentUser
Set oSession = Nothing
End Sub

Can anyone suggest me what to do ASAP?

Thank you,
Sandeep

[James Stanich]

Add

oSession.Close

Before setting it = nothing...

[sandeep_id]

Hi James,

There's no method called close in the Session object. Instead I tried using oSessiojn.Logoff. But the problem still persists.

Sandeep

[James Stanich]

Here's my email code that I use :

'*******************************************************************************
' 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

Feel free to change...