PDA

Visualizza la versione completa : [vb6] creare cartella nei contatti di outlook


GudFella
30-10-2002, 12:13
devo creare una cartella nuFldr
nella cartella Contatti di Outlook
il codice che uso il seguente:

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set Fldr = olNS.GetDefaultFolder(olFolderContacts)
Set nuFldr = Fldr.Folders.Add("nuFldr")

l'ultima riga provoca un errore di automazione
"err.num -2897564526.... impossibile creare la cartella"

sto sbagliando qualcosa di banale o devo dare fuoco al computer?

grazie per ogni suggerimento

GudFella
30-10-2002, 12:27
Risolto!! (... il pc salvo)

visto che dopo alcune modifiche non so esattamente
che errore ho corretto
posto il codice esatto

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim nuFldr As Outlook.MAPIFolder
Dim societa As Outlook.MAPIFolder

Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set nuFldr = olNS.GetDefaultFolder(olFolderContacts)
Set societa = nuFldr.Folders.Add("Societ")

Loading