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
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
Tu sais que Dim myOlApp as OutLook.Application ca le fait mieux....Tu faisais du vbscript avant ?FRANCHEMENT !!!!!!!!!!!!!!!!!!!
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.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 598 932 membres 187 nouveaux aujourd'hui 15 441 membres club