VBA: Comment envoyer directement depuis excel un mail Fermé

Question

Bonjour, 

Je bloque complètement sur un code permettant d'envoyer un mail depuis une feuille excel. Alors je profite de la communauté pour vous envoyer cette demande afin que vous puissiez me guider à travers cette longue traversé du désert :-)

L'objectif:
Idéalement, à partir d'un code VBA, réussir à envoyer une sélection de chacune des feuilles (cellule A1 jusqu'à la dernière ligne renseignée) à chacun des destinataires correspondants. 

Voici le premier morceau de code déjà créer:

'Déclaration de variable

Dim OutlookApp As Object
Dim OutlookMail As Object
Dim i As Byte

Sub Email()


For i = 2 To ThisWorkbook.Worksheets("abekkal").Range("D" & Rows.Count).End(xlUp).Row

    Set OutlookApp = CreateObject("outlook.application")
    Set OutlookMail = OutlookApp.CreateItem(0)
              
    On Error Resume Next
    ActiveSheet.Select
    
    Application.ScreenUpdating = False
    
    NbLigne = Ws.Range("A" & Application.Rows.Count).End(xlUp).Row

    Ws.Range("A1:G" & NbLigne).Select
    
    With Selection.Parent.MailEnvelope.Item

    .To = Ws.Range("J2").Value

    

    .Subject = "Relance facture(s) non approuvée(s)"

    .Send

    End With

Next i

    On Error Resume Next
    ActiveSheet.Next.Select

MsgBox "votre mail à été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True

End Sub
 

Le deuxième morceau créer et qui fonctionne uniquement pour l'onglet "feuil2 »
Sub EnvoiMail()

'Déclaration de variable

Dim Mafeuille As Worksheet   'La feuille contenant le tableau à envoyé
Dim NbLigne As Integer      'Nombre de lignes à récupérer

'Affectation des variables
Set Mafeuille = ThisWorkbook.Sheets("abekkal")   'on defini la feuille sur laquelle on envoi le tableau de bord

'Désactivation du raffraichissement de l'écran
Application.ScreenUpdating = False

'On calcule le nombre de ligne à prendre dans la feuille à partir de la colonne A
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

'On séléctionne la plage à copier
Mafeuille.Range("A1:G" & NbLigne).Select

'Envoyé le tableau dans le corps d'un mail avec l'instruction VBA "MailEnvelope"
With Selection.Parent.MailEnvelope.Item

'Destinataire Direct
.To = Mafeuille.Range("J2").Value



'Objet du mail
.Subject = "Relance facture(s) non approuvée(s)"

'Envoi du mail
.Send

End With

MsgBox "votre mail à été envoyé.", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"

Application.ScreenUpdating = True


End Sub

J'ai également mis a votre disposition les copie écran au format JPEG;

Merci d'avance pour votre aide,
Saajo


Configuration: Windows / Chrome 72.0.3626.121

yg_be · Answer

bonjour, merci d'utiliser les balises de code pour partager un programme.
as-tu une question, comment pouvons-nous t'aider?

Saajo · Answer

Merci pour ton retour YG_BE.

Désolé, mais je ne comprends ta remarque concernant les balises.

L'objectif est de faire une boucle prenant en compte une sélection par feuille, à envoyer pour chaque contact correspondant.

Je souhaiterais faire une boucle qui ferait l'action suivante:

Sélectionner/copier les données à partir de la feuille n°4 nommée "abekkal"
Coller dans un mail outlook
Envoyer le mail
Passer à la feuille suivante 
Répéter la même action ci-dessus jusqu'à la fin des feuille du classeur

J'ai tenté de créer une boucle à partir de For ou For Each mais aucune des deux fonctionnent.
Néanmoins ma deuxième macro sans la boucle fonctionne pour la feuille "abekkal". Hors, cela voudrais dire que je dois répéter le code au tant de fois qu'il existe de feuille, et multiplierais le nombre de ligne du code.

Je pense que le problème provient de la sélection de la feuille qui désigne une feuille précise et non une feuille une par une. Ci dessous mon code est celui-ci:

=> Set Mafeuille = ThisWorkbook.Sheets("abekkal") 

Cela permet de définir la feuille sur laquelle on sélectionne les données et ensuite que l'on colle dans le mail pour envoi.

Idéalement, il faudrait avoir un code permettant de choisir feuille après feuille une fois l'action est terminer.

J'espère avoir été claire et précis.

Encore merci pour ton aide,
Saajo

VBA: Comment envoyer directement depuis excel un mail

2 réponses

Discussions similaires