Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro envoyer mail vers destinataire - Probleme outlook

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Kernoz

XLDnaute Occasionnel
Bonjour,

j'ai créer un code qui envoie un mail avec le fichier attaché à une liste de destinataires. La macro marche tres bien chez moi (logiciel messagerie interne ) mais chez un client qui a Outlook, ca ne marche pas.
En effet, lorsque il active la macro, le mail s'ouvre avec le fichier joint et les deux adresses des destinataires séparées par un ";" mais un message d'erreur s'affiche lorsqu'il appuie sur envoyer : << Microsoft office outlook ne reconnait pas l'adresse " toto@excel.fr;titi@excel.fr ".

Je ne comprend pas pourquoi ...

Voici le code :

Code:
Sub MailCellule()
'
' MailCellule Macro
'
Workbooks("Navettes Sot.xlsm").Worksheets("Antares").Select
'Transmission par mail :
    Dim Destinataires As String
    Destinataires = " toto@excel.fr;titi@excel.fr "

    Application.Dialogs(xlDialogSendMail).Show _
    Destinataires

Merci d'avance pour votre aide.
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Bonjour,

Chez le client, vérifier le séparateur de liste. Pour ce faire, dans un nouveau courriel, il saisit au moins deux adresses. Le séparateur de liste est-il bien le ; ?


Geli
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

En passant un tableau comme dans mon message précédent, inutile de se préoccuper du séparateur de liste.

A+
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Rebonjour,

Le séparateur Outlook est bien un ";".

Sinon avec la solution "Array" et "," ca ne marche pas non plus : Erreur d'exécution '13' : Incompatibilité de type.
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

Alors il faut que tu joignes un exemple parce que chez moi cela a toujours fonctionné. Es-tu sûr d'avoir bien écrit ton Array.

A+
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Voici le code tel qu'il est :

Code:
Sub MailAntares()
'
' MailAntares Macro
'
Workbooks("Navettes Sot.xlsm").Worksheets("Antares").Select
'Transmission par mail :
    Dim Destinataires As String
    Destinataires = Array("toto@excel.fr", "titi@excel.fr", "tonton@excel.fr ")

    Application.Dialogs(xlDialogSendMail).Show _
    Destinataires
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

Je vois que tu as une espace en trop en fin de troisième adresse.
Si tu ne joins pas un fichier anonymisé, que l'on puisse tester ce qui cloche, je ne répondrai plus.

A+
 
Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

Destinataires est une variable de type Variant et non String:

Code:
Sub MailAntares()
'
' MailAntares Macro
'
Workbooks("exxx.xlsm").Worksheets("Antares").Select
'Transmission par mail :
    Dim Destinataires As Variant
    Destinataires = Array( "toto @ .fr", "titi @ .fr")
    Application.Dialogs(xlDialogSendMail).Show _
    Destinataires
    
End Sub
Adresses mal écrites à cause de l'éditeur de post qui détecte les les adresses mail et leur colle des balises non désirées
sinon Code testé et ok!

Bon courage
 
Dernière modification par un modérateur:
Re : Macro envoyer mail vers destinataire - Probleme outlook

Re.

Ca marche chez moi, comme le premier code, mais le soucis reste le même, chez mon client qui a Outlook, la boite d'envoie s'affiche avec les adresses associées mais lorsqu'il clic sur Envoyer mail, la boite se ferme, sans aucun messages, et le mail n'est pas envoyé ...😕
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
816
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…