Ho trovato del codice che va bene per i miei scopi, che ho semplificato così per provare:
codice:
Public Function StartOutLook()
'On Error GoTo StartOutLook_Error
Dim spObj As Object, MyItem As Object
Dim oContact As ContactItem
' Create a Microsoft OutLook object.
Set spObj = CreateObject("Outlook.Application")
Set oContact = spObj.CreateItem(olContactItem)
' Create and open new contact form for input.
' You can substitute olAppointmentItem, olJournalItem, olMailItem,
' olNoteItem, olPostItem, or olTaskItem for olContactItem.
'Set MyItem = spObj.CreateItem(olContactItem)
'MyItem.Display
With oContact
.FullName = "Cotoletta di Di Bella Pippo pippo"
.JobTitle = "Lavoro"
.BusinessTelephoneNumber = "338338338"
.Email1Address = "pippo@pippo.it"
.Save
End With
'MyItem.Display
' Quit Microsoft Outlook.
Set spObj = Nothing
Exit Function
StartOutLook_Error:
MsgBox "Error: " & Err & " " & Error
Exit Function
End Function
ha un unico problema: funziona SOLO se outlook è aperto.
Perchè??
La soluzione più banale è aprire outlook da codice, ma posso risolvere senza far ciò?
Ciao
Zebra^IN^ATTESA