... = objOutlook.GetNamespace("MAPI")Set colFolders = objNamespace.Folders return objNamespace object with methods like GetDefaultFolder(), and GetAddressEntryFromID(), along with a Folders object, containing Methods like Add(), GetFirst(), GetLast(), and a count property. ...
I found it, the problem isthat I have multiple accounts in outlook, and it was searching in the wrong account. How can I define the Get( "GetDefaultFolder", "6" ) from a specific account?
... LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( olFolderInBox ) LOCAL nItems LOCAL oMail LOCAL iMsg nItems := oFolder:Items:Count FOR iMsg := 1 TO nItems oMail := oFolder:Items[ ...
... LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( 5 ) LOCAL nItems LOCAL oMail LOCAL iMsg LOCAL cNomeMsg nItems := oFolder:Items:Count oMeter:nTotal := nItems FOR iMsg := 1 TO nItems ...
... "Outlook.Application" ) oNameSpace := oOL:Get( "GetNameSpace", "MAPI" ) oInbox := oNameSpace:Get( "GetDefaultFolder",6) // 6 = Inbox-Folder Is there a way to open a non default folder. Cheers Colin
... End Sub Private Sub AccessContacts(ByVal findLastName As String) Dim folderContacts As Outlook.MAPIFolder = Me.ActiveExplorer() _ .Session.GetDefaultFolder(Outlook.OlDefaultFolders _ .olFolderContacts) Dim searchFolder As Outlook.Items = folderContacts.Items Dim counter As Integer = 0 For ...
... Private Sub ThisApplication_NewMail() Handles Me.NewMail Dim inBox As Outlook.MAPIFolder = Me.ActiveExplorer() _ .Session.GetDefaultFolder(Outlook. _ OlDefaultFolders.olFolderInbox) Dim inBoxItems As Outlook.Items = inBox.Items Dim newEmail As Outlook.MailItem inBoxItems ...
... := CREATEOBJECT( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:GetNameSpace("MAPI") LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts ) LOCAL i SET DATE BRITISH FOR i = 1 TO oContacts:Items:Count ? oContacts:Items[ i ]:FullName , ; oContacts:Items[ ...