Microsoft 365 envoi par mail de feuilles Excel dont les noms des feuilles sont les adresses d'envoi

Dudu2 à dit:

Bonjour,
C'est pour une entreprise ?

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
faut pas abuser c'est pas du grand developpement là
un exemple vite fait comme ca
essaie comme ca
et si les mails te conviennent comme ça
ferme les tous et supprime la ligne".Display" et débloque la ligne".send"
chaque feuille est envoyée en piece jointe

VB:

Sub rearmMail()
    Dim Sh As Worksheet
    For Each Sh In Worksheets
        If InStr(1, Sh.Name, "@", vbTextCompare) > 0 Then
            sendMail Sh
        End If
    Next
End Sub
Sub sendMail(feuille As Worksheet)        'envoi mail

    Dim OutObj As Object, OutMail As Object
    Dim sPath As String, sNomFic As String
    Dim sAdrmail As String, strSujet As String, strBody As String
    Dim FichierPDF$
    FichierPDF = ThisWorkbook.Path & "\" & feuille.[A4].Value & ".pdf"
    Set OutObj = CreateObject("outlook.application")        'lance outlook
    Set OutMail = OutObj.CreateItem(0)
    feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FichierPDF, Quality:=xlQualityStandard, _
                                IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
                                False

    sAdrmail = feuille.[B1].Text       'adresse destinataire
    SAdrCC = "moimeme@hotmail.com'        'adresse CC"
    strSujet = "fichier"        'sujet du mail
  
    Message = "Bonjour Mr" & feuille.[A4].Value & vbCrLf & " veuillez trouver ci joint la feuille vous concernant " & vbCrLf & "En vous souhaitant bonne réception"
  
    With OutMail
        .Display        'affiche le mail sans l'envoyer sinon .send
        .to = sAdrmail
        .CC = SAdrCC
        .Subject = strSujet
        .Body = Message
        .attachments.Add FichierPDF
        '.send envoie le mail
    End With
    Set OutMail = Nothing
    Set OutObj = Nothing
If Dir(FichierPDF) <> "" Then Kill FichierPDF
End Sub

Cliquez pour agrandir...

patricktoulon à dit:

re
pierre /paul ???????????????
les mail partent vers un seul destinataires
c'est pas clair ton truc là
t'a du picoler avec pierre et paul toi
en attendant j'ai évolué
et oui moi je vais comme une fusée
j'ai ajouté une feuille Acceuil
avec un bouton pour envoyer toutes les feuilles
et
des liens vers les autres feuilles sont créés à l'ouverture du classeur dans la feuille Acceuil
Regarde la pièce jointe 1188750


quand tu clique sur ces liens ca t'emmène sur la feuille
ensuite quand tu es sur une feuille tu a au click droit dans le menu des cellule
"Envoyer par mail
"retour à l'acceuil
tu l'aura compris
tu clique dessus et ca fait ce dont il est sensé faire pour la feuille sur la quelle tu clique
Regarde la pièce jointe 1188751

voila voila
tu dira a pierre et à paul d'éviter de te faire picoler hein
fichier joint

Cliquez pour agrandir...

obelix77 à dit:

Comme tu as du le comprendre, Pierre et Paul étaient des exemples bien sur.
Mais tu m'as bien fait rire
Je te remercie énormément.
Je teste ça dans le week-end et je te fait un retour.
Tu es au top

Cliquez pour agrandir...

patricktoulon à dit:

re
bonjour Mangeur de Sanglier
de rien
pointe ton sujet resolu sur le post qui "a répondu a ta question

Cliquez pour agrandir...