[VB] aggiungere contatto in una tabella creata in outlook

[GudFella]

Ho creato una tabella "società"
nella cartella contatti di outlook
ora vorrei inserire da codice dei contatti

questo funziona per la cartella "contatti"

Set conOutLook = olApp.CreateItem(olContactItem)
With conOutLook
....
End with

ma per creare un nuovo contatto in una cartella diversa?
grazie

[ladyBlu]

eccoci qui.
allora eravamo rimasti qui:

Dim ol As New Outlook.Application
Dim ns As Outlook.NameSpace
Dim fd As Outlook.MAPIFolder
Dim nuFldr As Outlook.MAPIFolder
Dim mioContatto As Outlook.ContactItem

Private Sub Form_Load()

        Set ns = ol.GetNamespace("MAPI")
        Set nuFldr = ns.GetDefaultFolder(olFolderContacts)
        Set fd = nuFldr.Folders("Società")
        
End Sub

Private Sub Command1_Click()

        If fd.Items.Count > 0 Then
        
            For Each mioContatto In fd.Items
                If Not IsNull(mioContatto.BusinessAddress) Then
                   MsgBox mioContatto.BusinessAddress
                End If
            Next
        
        End If

End Sub

Private Sub Command2_Click()

        Set mioContatto = nuFldr.Items.Add         
        mioContatto.Display 1

End Sub

cioè crei il contatto aprendo la scheda.





ma tu vuoi crearlo via codice, hai detto... e in che modo?
cioè, hai un form in cui inserisci i dati e poi via codice vuoi salvarli? :master:

[GudFella]

....
ma tu vuoi crearlo via codice, hai detto... e in che modo?
cioè, hai un form in cui inserisci i dati e poi via codice vuoi salvarli?
....

esatto
devo inserire nome e indirizzo email
recuperati da db

[ladyBlu]

ok, fai così:

Private Sub Command2_Click()

        Set mioContatto = nuFldr.Items.Add         
        mioContatto.Email1Address = "ladyBlu@ladyBlu.it"
        mioContatto.FirstName = "ladyBlu"

        mioContatto.Save

End Sub

ciao...