× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Autres langages
 Macro d'envoi mail ne fonctionne plus dans Excel 2013Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Jarjarbinks
  Posté le 06/02/2018 @ 08:44 
Aller en bas de la page 
Petit astucien

Bonjour,

Je ne suis pas spécialiste informatique, juste utilisateur d'Excel et de VBA.
J'ai créé plusieurs fichiers automatisés sous Excel 2010. Je récupère des macros sur internet et les adapte à mes besoins.
Depuis que je suis passé sous Excel 2013, j'ai un dysfonctionnement avec la récupération de signatures enregistrées dans Outlook.
La ligne concernée est:
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(2).Execute
J'ai un message d'erreur "Erreur d'exécution 5: Argument ou appel de procédure incorrect".
J'ai cherché sur Internet, et notamment sur ce forum, mais je n'ai pas trouvé.

J'ai réessayé avec le PC d'un collègue qui a Excel 2010, et tout va bien.

Sub EnvoiMail_HTML_2()
 
    Dim MonAppliOutlook As Object
    Dim MonMail As Object
    Set MonAppliOutlook = CreateObject("Outlook.Application")
    Set MonMail = MonAppliOutlook.CreateItem(olMailItem)
 
    With MonMail
        .To = "Destinataire"
        .Subject = "Subject"
        .Close 0
        .display
    End With
 
 
    Dim strHTML As String
 
    strHTML = ""
    strHTML = strHTML & "<Font size='2'Face='Lucida Bright'>Bonjour,</Font>"
    strHTML = strHTML & "<B></B><BR><BR>"
    strHTML = strHTML & "<B><u><Font size='2'Face='Lucida Bright'>Destinataire:</Font></u></B>"
    strHTML = strHTML & "<TABLE BORDER=0>"
 
    For i = 2 To 8 'nombre de lignes (exemple plage A2:B8)
 
    strHTML = strHTML & "<TR halign='middle'nowrap>"
        For j = 1 To 2 'nombre de colonnes
        strHTML = strHTML & "<TD bgcolor='none'align='left'><FONT COLOR='black'SIZE='2'FACE='Lucida Bright'>" _
                & Cells(i, j) & "</FONT></TD>"
        Next j
 
    Next i
 
    strHTML = strHTML & "</TABLE>"
    strHTML = strHTML & "<B></B><BR>"
    strHTML = strHTML & "<B><u><Font size='2'Face='Lucida Bright'>Contenu:</Font></u></B>"
    strHTML = strHTML & "<TABLE BORDER=0>"
 
    For i = 11 To 15 'nombre de lignes (exemple plage A11:B14)
 
        strHTML = strHTML & "<TR halign='middle'nowrap>"
        For j = 1 To 2 'nombre de colonnes
        strHTML = strHTML & "<TD bgcolor='none'align='left'><FONT COLOR='black'SIZE='2'FACE='Lucida Bright'>" _
                & Cells(i, j) & "</FONT></TD>"
        Next j
 
    Next i
 
    With MonMail
        .BodyFormat = 2    'olFormatHTML
        .GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(2).Execute
        .HTMLBody = strHTML & MonMail.HTMLBody
        '.Display
    End With
 
    Set MonAppliOutlook = Nothing
    Set MonMail = Nothing
 
End Sub

Peut-être un soucis de référence dans les options VBA?

En vous remerciant

Publicité
Titus68
 Posté le 11/02/2018 à 02:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Pour la ligne en question je ne sais pas, j'aurais vérifié :

- 15.0 Object Library bien référencé (pour Office 2013) :

- olMailItem : est que cette variable est bien à 0 ?

- apparemment commandbar ne fonctionne plus en 2013 :

https://social.msdn.microsoft.com/Forums/en-US/171351d5-0623-4631-a5ba-3775a15c6367/outlook-2013-inserting-signature-with-graphics-over-vba?forum=outlookdev

la même erreur que la tienne indiquée là :

https://www.developpez.net/forums/d1643787/logiciels/microsoft-office/access/vba-access/envoi-mail-signature-vba-access-utilisant-outlook/

Apparemment il faut lire la signature autrement :

https://www.developpez.net/forums/d1580700/logiciels/microsoft-office/access/vba-access/envoi-mail-outlook-signature-access/

Jarjarbinks
 Posté le 12/02/2018 à 09:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Titus 68,

Je te remercie pour ta réponse, ça me donne des pistes de recherche.

Comme ce fichier est destiné à être utilisé par plusieurs utilisateurs, il va falloir que j'adapte.

Je reviendrais dire si ça fonctionne ou pas.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
104,71 €Alimentation Seasonic Focus Plus Gold 650W (garantie 10 ans) à 104,71 € livré
Valable jusqu'au 20 Octobre

Amazon Allemagne fait une promotion sur l'alimentation Seasonic Focus Plus Gold 650W qui passe à 96,11 €. Comptez 8,60 € pour la livraison en France soit un total de 104,71 € livré alors qu'on la trouve ailleurs à partir de 139 €. Le niveau frise la perfection avec une magnifique certification 80+ OR et un câblage full modulaire, le tout dans un silence de cathédrale. L'alimentation est garantie 10 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et qu'il n'y a pas de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
49,49 €Disque dur Toshiba P300 2 To à 49,49 € avec le code AFFAIRE10
Valable jusqu'au 21 Octobre

Cdiscount fait une promotion sur le disque dur Toshiba P300 2 To qui passe à 49,49 € grâce au code promo AFFAIRE10On le trouve ailleurs à partir de 65 €. Ce disque dur interne de 2 To est SATA 6 Gbps, possède 64Mo de cache et dispose d'une vitesse de rotation de 7200 tpm. 


> Voir l'offre
19,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 128 Go à 19,99 €
Valable jusqu'au 21 Octobre

Amazon fait une promotion la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 128 Go qui passe à 19,99 € La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s. 


> Voir l'offre

Sujets relatifs
envoi mail a partir d une page excel
appeler des touches clavier dans une macro Excel
Problème avec affichage dans excel VBA
syntaxe zone de liste déroulante dans excel 2010
problème macro excel
Macro vb excel
Macro excel : regrouper plusieurs fichiers
macro sous excel
recherche de texte dans un fichier excel
macro excel
Plus de sujets relatifs à Macro d''envoi mail ne fonctionne plus dans Excel 2013
 > Tous les forums > Forum Autres langages