Outlook 2007 caricare rubrica da file excel

[snobba]

Ho un file excel contenente una sorta di database con nomi, telefoni e indirizzi email.
Poso caricare tali dati nella rubrica di Outlook, in modo massivo? Eventualmente caricandoli tutti in una Lista?

[efo]

Si, si posso caricare in modo massivo. Ci sono molti esempi in vba. Anche se io utilizzo uno script in Autoit.

[Alexsandra]

Prova a fare così:

Apri il file Excel che contiene l'elenco e vai nel VBA (ALT+F11)
una volta entrato nell'editor e inserisci un modulo (menu Inserisci - modulo)

poi devi inserire il riferimento alla libreria di outlook dal menu Strumenti - Riferimenti e scorri la lista fino alla voce Microsoft Outlook 15.0 Object Library

NB: può cambiare il numero di versione (15.0) in base alla versione che hai di Office.

Fatto questo copia nel modulo il seguente codice

Sub importa1()

Dim appOutlook As Object
Dim Moutlook As Object
Dim cartellaC As Object
Dim cartellaD As Object
Dim contattoC As Object
Dim contattoD As Object
Dim ultimaR As Long, i As Long, n As Long, c As Long


ultimaR = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row

On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")

If Err.Number <> 0 Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0

Set Moutlook = appOutlook.GetNamespace("MAPI")
Set cartellaD = Moutlook.GetDefaultFolder(3)
Set contattoD = cartellaD.Items

'n° di contatti
c = contattoD.Count

For n = c To 1 Step -1
contattoD(n).Delete
Next n

Set cartellaC = Moutlook.GetDefaultFolder(10)

For i = 2 To ultimaR
Set contattoC = cartellaC.Items.Add

contattoC.Display

With contattoC
.nome = Sheets("Foglio1").Cells(i, 1)
.cognome = Sheets("Foglio1").Cells(i, 2)
.email = Sheets("Foglio1").Cells(i, 3)
.ditta = Sheets("Foglio1").Cells(i, 4)
.telefono = Sheets("Foglio1").Cells(i, 5)
End With

contattoC.Close 0
Next i

appOutlook.Quit
Set appOutlook = Nothing
Set Moutlook = Nothing
Set cartellaC = Nothing
Set cartellaD = Nothing
Set contattoC = Nothing
Set contattoD = Nothing

MsgBox "Importazione contatti eseguita con successo"
 
End Sub

NOTA:
per caricare i dati dal foglio excel ho dato per scontato che siano nel foglio 1 e che i dati siano affiancati nelle colonne partendo dalla A

Prima di lanciare la macro fai una copia dei contatti che hai inseriti in Outlook, io non posso provare la macro, meglio essere previdenti


Edit:
se dovesse rimandarti un errore prova a sostituire il nome delle variabili che caricano i contatti in outlook, non vorrei che Outlook abbia i suoi nomi di variabili ben definiti in inglese, devi solo sostituire il ciclo With del codice sopra (quello in azzurro) con questo quì sotto

With contattoC
.firstName = Sheets("Foglio1").Cells(i, 1)
.LastName = Sheets("Foglio1").Cells(i, 2)
.Email1Address = Sheets("Foglio1").Cells(i, 3)
.CompanyName = Sheets("Foglio1").Cells(i, 4)
.MobileTelephoneNumber = Sheets("Foglio1").Cells(i, 5)
End With

[RunDLL]

Vuoi toglierti il gusto di riscriverne uno ad uno?

[borgata]

Piuttosto mi sembra strano che MS Outlook non possa importare un qualche formato di rubrica e occorra ricorrere ad una MACRO per l'importazione.
Tra le opzione di importazione cosa c'è a disposizione?

[Alexsandra]

Inviato da borgata

....
Tra le opzione di importazione cosa c'è a disposizione?

e perchè non prendi il file excel lo salvi in html e poi lo importi in outlook con le normali procedure a disposizione??