Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Ошибка при вызове LogonEx из Mapi32 Добавлено: 11.12.06 07:59  

Автор вопроса:  Alexey | ICQ: 302310067 
Vb.net

'Ответ на вызов процедуры: не выбран почтовый клиент по 'умолчанию.
Imports System
Imports System.Runtime.InteropServices

Module Module1

  Public Const MAPI_AB_NOMODIFY = &H400
    Public Const MAPI_BCC = 3
    Public Const MAPI_BODY_AS_FILE = &H200
    Public Const MAPI_CC = 2
    Public Const MAPI_DIALOG = &H8
    Public Const MAPI_E_AMBIGUOUS_RECIPIENT = 21
    Public Const MAPI_E_AMBIG_RECIP = MAPI_E_AMBIGUOUS_RECIPIENT
    Public Const MAPI_E_ATTACHMENT_NOT_FOUND = 11
    Public Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 12
    Public Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 13
    Public Const MAPI_E_BAD_RECIPTYPE = 15
    Public Const MAPI_E_BLK_TOO_SMALL = 6
    Public Const MAPI_E_DISK_FULL = 4
    Public Const MAPI_E_FAILURE = 2
    Public Const MAPI_E_INSUFFICIENT_MEMORY = 5
    Public Const MAPI_E_INVALID_EDITFIELDS = 24
    Public Const MAPI_E_INVALID_MESSAGE = 17
    Public Const MAPI_E_INVALID_RECIPS = 25
    Public Const MAPI_E_INVALID_SESSION = 19
    Public Const MAPI_E_LOGIN_FAILURE = 3
    Public Const MAPI_E_LOGON_FAILURE = MAPI_E_LOGIN_FAILURE
    Public Const MAPI_E_MESSAGE_IN_USE = 22
    Public Const MAPI_E_NETWORK_FAILURE = 23
    Public Const MAPI_E_NO_MESSAGES = 16
    Public Const MAPI_E_NOT_SUPPORTED = 26
    Public Const MAPI_E_TEXT_TOO_LARGE = 18
    Public Const MAPI_E_TOO_MANY_FILES = 9
    Public Const MAPI_E_TOO_MANY_RECIPIENTS = 10
    Public Const MAPI_E_TOO_MANY_SESSIONS = 8
    Public Const MAPI_E_TYPE_NOT_SUPPORTED = 20
    Public Const MAPI_E_UNKNOWN_RECIPIENT = 14
    Public Const MAPI_ENVELOPE_ONLY = &H40
    Public Const MAPI_FORCE_DOWNLOAD = &H1000
    Public Const MAPI_GUARANTEE_FIFO = &H100
    Public Const MAPI_LOGOFF_SHARED = &H1
    Public Const MAPI_LOGOFF_UI = &H2
    Public Const MAPI_LOGON_UI = &H1
    Public Const MAPI_NEW_SESSION = &H2
    Public Const MAPI_OLE = &H1
    Public Const MAPI_OLE_STATIC = &H2
    Public Const MAPI_ORIG = 0
    Public Const MAPI_PEEK = &H80
    Public Const MAPI_RECEIPT_REQUESTED = &H2
    Public Const MAPI_SENT = &H4
    Public Const MAPI_SUPPRESS_ATTACH = &H800
    Public Const MAPI_TO = 1
    Public Const MAPI_UNREAD = &H1
    Public Const MAPI_UNREAD_ONLY = &H20
    Public Const MAPI_USER_ABORT = 1
    Public Const MAPI_E_USER_ABORT = MAPI_USER_ABORT
    Public Const SUCCESS_SUCCESS = 0

<DllImport("MAPI32.DLL", entryPoint:="MAPILogonEx", setLastError:=True, CharSet:=CharSet.Ansi)> Public Function MAPILogon(ByVal UIParam As Integer, ByVal User$, ByVal Password$, _
    ByVal Flags&, ByVal Reserved&, ByVal Session&) As Integer


End Module

'Уже в форме вызываю:

        Dim rtn As Integer

        rtn = MAPILogon(0, "", "", MAPI_LOGON_UI, 0,Session1)
        MsgBox("Session:" & Session1 & " RTN: " & rtn)
'Сообщение
' Session1 = 0, rtn = -2147467259
'Ответ на вызов процедуры: не выбран почтовый клиент по 'умолчанию.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Alexey



ICQ: 302310067 

Вопросов: 1
Ответов: 1
 Профиль | | #1 Добавлено: 11.12.06 08:21
Почтовый клиент выбран: варъировал между батом и аутлуком, учетные записи выбраны.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам