Création d'un nouveau contact dans outlook

Contenu du snippet

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

A voir également

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.