Ce code vous permet de creer n nouveau contact dans outlook, très pratique..
Source / Exemple :
Sub cmdRenvoieContact()
'Ici vous definissez toutes les variables
Dim myOlApp As Object
Dim myItem As Object
Dim Start As Object
'Lancement de l'application à utiliser
Shell "c:\program files\microsoft office\office\outlook.exe"
Set Start = CreateObject("Outlook.Application")
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olContactItem)
myItem.Display
'Ouverture et création d'un nouveau contact dans la base Outlook
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.