Quel argument : Application.Dialogs(xlDialogSendMail).Show

Le 10/06/2013 à 19:38

Bonjour,

avec la procédure automatique, la macro charge ma messagerie, mais avec ma feuille de calcul en pièce et non avec un fichier spécifique.

avec : Application.Dialogs(xlDialogSendMail).Show " ", "Résultats"

le premier = adresse messagerie

le deuxieme = sujet

le troisième = ?

Malgré divers lectures, je n'ai pas de réponse

De quel façon puis-je le réaliser ?

merci

Le 01/02/2018 à 03:36

Bonjour,

à tester,

Sub test_mail()
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("mail")
destinataire = "aaaaa@videotron.ca"
deb = 2
sh2.Activate

 For i = 3 To 20
  n = n + 1
   If sh1.Cells(i, 1).Value <> sh1.Cells(deb, 1).Value Then
    sh2.Range(sh2.Cells(2, 1).Address, sh2.Cells(n + 1, 4).Address).Value = sh1.Range(sh1.Cells(deb, 1).Address, sh1.Cells(i - 1, 4).Address).Value
    deb = i
    With sh2
     Application.Dialogs(xlDialogSendMail).Show destinataire, "ObjetsRésultats" 'destinataire@mail.ca
    End With
    sh2.Range("A2:D" & sh2.Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
    n = 0
   End If
 Next
End Sub

Édit: désolé, mauvais aiguillage

Rechercher des sujets similaires à "quel argument application dialogs xldialogsendmail show"