XL 2010 Envoyer Mail Outlook

Francky79 · 3 Novembre 2020

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 · 4 Novembre 2020

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 :

Les meilleurs sources pour Excel - Club d'entraide des développeurs francophones

Les meilleurs sources Excel du forum developpez

excel.developpez.com

ou

VBA: Envoyer un email avec Excel (via Outlook) | Excel-Malin.com

Code source VBA qui vous permettra d'envoyer les emails à partir d'un fichier Excel. Code prêt à l'emploi, explications, exemples...

excel-malin.com

Francky79 · 4 Novembre 2020

Bonjour fanch55,

Je te remercie pour ton aide.
Je regarde à ça ce soir et je reviens vers toi si besoin.
Merci,

XL 2010 Envoyer Mail Outlook

Francky79

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Les meilleurs sources pour Excel - Club d'entraide des développeurs francophones

VBA: Envoyer un email avec Excel (via Outlook) | Excel-Malin.com

Francky79

XLDnaute Occasionnel

Discussions similaires