PDA

Visualizza la versione completa : [VB] aggiungere contatto in una tabella creata in outlook


GudFella
31-10-2002, 12:30
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
31-10-2002, 13:09
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
31-10-2002, 14:02
....
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
31-10-2002, 14:16
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...:ciauz:

Loading