Création d'un nouveau contact dans outlook

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 691 fois - Téléchargée 45 fois

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

Ajouter un commentaire Commentaires
cs_olivier35 Messages postés 1 Date d'inscription mercredi 21 mai 2003 Statut Membre Dernière intervention 6 janvier 2011
6 janv. 2011 à 13:54
La ligne suivante est inutile...
Shell "c:\program files\microsoft office\office\outlook.exe"
emm456 Messages postés 1 Date d'inscription samedi 30 décembre 2006 Statut Membre Dernière intervention 30 décembre 2006
30 déc. 2006 à 10:10
Bonjour, je suis nouveau sur le site et débutant en programmation et je recherche une information (je sais que cette discussion est ancienne mais je tente le coup, on ne sait jamais). Je cherche à intégrer des contacts d'une table Access au fichier des contacts d'Outlook simplement. Quelqu'un saurait-il faire ça ? Merci d'avance de votre aide.
thiosyiasar Messages postés 186 Date d'inscription lundi 11 mars 2002 Statut Membre Dernière intervention 30 novembre 2010 3
1 août 2002 à 01:39
Tu sais que Dim myOlApp as OutLook.Application ca le fait mieux....
Tu faisais du vbscript avant ?
FRANCHEMENT !!!!!!!!!!!!!!!!!!!
Seb_d_angers Messages postés 155 Date d'inscription vendredi 2 novembre 2001 Statut Membre Dernière intervention 19 mai 2011
1 août 2002 à 00:33
J'aime pas trop critiquer mais la je pense que je peux, recopier le code de l'aide VBA - Outlook c'est moyen mais ca peut toujours etre utile à certains mais ce bout de code est vraiment court pourtant tu n'hésite pasà déclarer une variable qui qui ne sert à rien (en tout cas dans l'exemple). En effet, je me demande pourquoi initialiser 2 variables (en l'occurence start et myolapp) de facon identique...
En un mot BOF

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.