Материал из VB Эксперт
Перейти к: навигация, поиск

declare the object variable myOutlook and then assign to it a reference to an Outlook.Application object:

Sub obj()
    Dim myOutlook As Object
    Set myOutlook = CreateObject("Outlook.Application")
End Sub

The GetOutlook Function

Function GetOutlook() As Outlook.NameSpace
    Dim objOutlook As New Outlook.Application
    Dim objNamespace As Outlook.NameSpace
    Dim strProfile As String
    Dim strPassword As String
    strProfile = "A"
    strPassword = "mypassword"
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Call objNamespace.Logon(strProfile, _
        strPassword, False, True)
    Set GetOutlook = objNamespace
End Function