Macro envoyer mail vers destinataire - Probleme outlook

[Kernoz]

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 :

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.

 

[Guest]

Re : Macro envoyer mail vers destinataire - Probleme outlook

bonjour,

Destinataires = Array("toto@excel.fr","titi@excel.fr")

A+

 

[Gelinotte]

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

 

[Guest]

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+

 

[Kernoz]

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.

 

[Guest]

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+

 

[Kernoz]

Re : Macro envoyer mail vers destinataire - Probleme outlook

Voici le code tel qu'il est :

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

 

[Guest]

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+

 

[Kernoz]

Re : Macro envoyer mail vers destinataire - Probleme outlook

Désolé, je pensais que c'est le code que tu voulais ...

Voici la pièce jointe.

 

[Guest]

Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

Destinataires est une variable de type Variant et non String:

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

 

[Kernoz]

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é ...

 

[Guest]

Re : Macro envoyer mail vers destinataire - Probleme outlook

Re,

Je ne peux pas savoir ce qu'il se passe. Peut-être une erreur réseau, proxy, serveur de messagerie etc....

A+