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

XL 2010 Envoyer Mail Outlook

Francky79

XLDnaute Occasionnel
Bonsoir le forum,

Je sollicite votre aide, car dans la macro ci-dessous pour envoyer des mails, un coup ça marche un coup ça ne marche pas, comme je ne suis pas assez fort en VBA pour voir si il y une ou des anomalie(s) je vous demande d'y jeter un œil.
De plus à la fin, que je mette send ou display je ne voit pas grand changement, le mail part ou pas, mais le mail ne s'affiche pas avec display.

Private Sub Envoyer_Mail_Click()
Dim MaFeuille As Worksheet
Dim NbLigne As Integer
Set MaFeuille = ThisWorkbook.Sheets("Traitement")
Application.ScreenUpdating = False
NbLigne = MaFeuille.Range("N" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("N1:T" & NbLigne).Select
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("D6").Value
.Subject = MaFeuille.Range("F6").Value
.Display 'Send
End With
MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"
Application.ScreenUpdating = True
End Sub

Merci pour votre aide,
 

fanch55

XLDnaute Barbatruc
Bonsoir, testez le code ci-dessous
VB:
Private Sub Envoyer_Mail_Click()
Dim MaFeuille As Worksheet
Dim NbLigne As Integer
Application.ScreenUpdating = False
ActiveWorkbook.EnvelopeVisible = True

    Set MaFeuille = ThisWorkbook.Sheets("Traitement")
    NbLigne = MaFeuille.Range("N" & Application.Rows.Count).End(xlUp).Row
    MaFeuille.Range("N1:T" & NbLigne).Select
    
    With Selection.Parent.MailEnvelope.Item
        .to = MaFeuille.Range("D6").Value
        .Subject = MaFeuille.Range("F6").Value
        .display
        If MsgBox("Confirmez l'envoi", vbCritical + vbOKCancel) = vbOK Then
            .Send
            MsgBox "Votre mail a été envoyé." & vbLf & Err.Number & " " & Err.Description, _
                vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"
        End If
    End With
        
ActiveWorkbook.EnvelopeVisible = False
Application.ScreenUpdating = True
End Sub

Cependant, Mailenvelope n'a jamais vraiment bien fonctionné.
Il vaut mieux s'inspirer de :
ou
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…