Problème ajout nouveau contact outlook

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
K
Kaed
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 25 février 2016
Version d'Excel : 2016

Message par Kaed » 16 novembre 2016, 09:07

Bonjour,

Je reviens vers vous car depuis plusieurs jours j'essaie de me servir d'un fichier excel pour ajouter un contacter et l'envoyer par mail en pièce jointe mais cela ne fonctionne pas....

Sur l'ordinateur de mes collègues cela fonctionne.

J'ai comme message:
Erreur d'exécution '-2147417851 (80010105)':
La méthode 'LastName' de l'objet '_ContactItem' a échoué

Le débogage me renvoie sur cette ligne de code ci-dessous (surligner):
'''Création de la fiche Outlook avec les données saisies
            Dim i&, olApp As Object, olItem As Object
            i = 3
            Set olApp = CreateObject("Outlook.Application")
            Set olItem = olApp.CreateItem(olContactItem)
            While olApp.Explorers.Count <= 0    'Teste si Outlook est ouvert
                If MsgBox("Vous devez ouvrir Outlook pour continuer.", vbExclamation + vbRetryCancel) = vbCancel Then
                    GoTo fin
                End If
            Wend
            With olItem
              [surligner].LastName = Cells(i, 1)[/surligner]
                .FirstName = Cells(i, 2)
                .HomeAddressStreet = Cells(i, 3)
                .HomeAddressPostalCode = Cells(i, 4)
                .HomeAddressCity = Cells(i, 5)
                .CompanyName = Cells(i, 6)
                .JobTitle = Cells(i, 7)
                .BusinessTelephoneNumber = Cells(i, 8)
                .MobileTelephoneNumber = Cells(i, 9)
                .BusinessFaxNumber = Cells(i, 10)
                .Email1Address = Cells(i, 11)
                .Save
            End With
            
            '''Partage du nouveau contact
            Dim Mail As Object
            On Error GoTo fin
            Set Mail = Outlook.CreateItem(olMailItem)
D'avance merci pour votre aide.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message