envoi de mail via ExcelRésolu

Question

bonjour,
je cherche &#224; envoyer des mails automatiquement &#224; partir d'Excel,
mais je n'arrive qu'a envoy&#233; le fichier actif,
merci pour l'aide
LsDx

cs_jordinette · Accepted Answer

Moi je code ces ligne là das le VBA de excel

    Dim MonOutlook As Object
    Dim MonMessage As Object
    Dim attach As Attachments
    Dim MonFichierjoint As Attachment
    
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
    Set attach = MonMessage.Attachments
    
      ' Préparation du message :
        MonMessage.To = dest
 
      ' Récupération du corps de l'E-mail :
        MonMessage.bcc = '"destinataires en copie"
    
        MonMessage.Subject = " Demande quelconque "
        MonMessage.body = " Corps de ton message " 
        
        fichier = Chemin & "
omdufichierexcel.xls"
        MonMessage.Attachments.Add fichier
          
      ' C'est parti :
        If Not Error Then
            MonMessage.Send
        End If

Pour utiliser se code il faut avoir enregistré le classeur excel que tu ve envoyé. oubli pas de rajouter la référence outlook dans ta fenetre de vba outils/références/Microsoft Outlook x.0 Object library (x correspondant à la verion de ton outlook, expl 9 pour office 2000).
Voilà si tu as besoin d'info....
Jordinette

cs_jordinette · Answer

Bonjour moi j'ai réussi, mais faudrais que tu me donne plus d'info pour que je te renseigne.
jordinette

cs_louisdo · Answer

voila la fonction que j'utilise,

Dim dest As String
dest = InputBox("Mail du dest ?")


ActiveWorkbook.SendMail Recipients:=dest
ActiveWorkbook.SendMail Subject = "Demande quelconque"
ActiveWorkbook.SendMail ReturnReceipt = True

le probl&#232;me est qu'il ne tient pas compte des deux dernieres lignes et qu'il envoi simplement le fichier actif.
Merci pour ton aide

cs_louisdo · Answer

merci pour ton aide Jordinette, &#231;a marche super bien


par contre j'ai retir&#233; le test if de la fin, il d&#233;boguais dessus


Louisdo

cs_jordinette · Answer

Cool si ça ta bien aidé ;@)
Bonne continuation.
Jordinette

ScSami · Answer

Oui mais sinon, plus simplement, as-tu essay&#233; d'inverser les lignes et de mettre la premi&#232;re &#224; la fin ???

ActiveWorkbook.SendMail Subject = "Demande quelconque"
ActiveWorkbook.SendMail ReturnReceipt = True

ActiveWorkbook.SendMail Recipients:=dest


Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

marinolive · Answer

Bonjour Jordinette,

Je te remercie d'abord pour ton code qui m'a beaucoup aid&#233;. Il me reste 2 ou 3 petits probl&#232;mes :
- une fen&#234;tre Outlook me pr&#233;vient que mon ordinateur va envoyer un mail et me demande de valider or j'aimerais ne pas avoir &#224; valider
- je ne sais pas comment g&#233;rer les retours &#224; la ligne, police et mise en forme du texte dans le corps du message
- j'aimerais pouvoir attacher au message toutes les pi&#232;ces jointe qui commence par une s&#233;quence de lettre (plut&#244;t qu'une seule pi&#232;ce jointe)

Si tu avais des id&#233;es sur la fa&#231;on de r&#233;soudre ces points je t'en serai super reconnaissant !

Merci

cs_jordinette · Answer

Bonjour 
Concernant la fenêtre outlook qui te prévient pour l'envoi du mail et l'obligation de validé pour que cela soit fait, c'est une sécurité d'outlook je ne crois pas que tu puisses faire une validation par le code ou encore que cette fenetre ne s'affiche pas.
Si tu veux faire de la mise en page de ton mail autre que changer de ligne, je te suggère de crée un nouveau mail directement dans outlook avec la mise en forme que tu souhaites et enregistrer se mail en "modèle outlook" et d'y faire appel dans ton code au lieu de créer un mail par le code. Car par le code tu peux seulement faire des retour à la ligne (vbcrlf) ou sauter une ligne (vbcrlf & vbcrlf).
Pour joindre tes élements en fonction du début de leur nom, je dois dire que ton information est un peu vague, et pour ce que j'ai compris je ne suis pas sure que cela soit possible.
J'espère que cela t'as aidé. Je peux te donner un exemple de code d'appel de modèle de mail si tu as besoin.
bonne journée
Jordinette

marinolive · Answer

Bonjour Jordinette,
Et merci pour la rapidit&#233; de ta r&#233;ponse. Pour la s&#233;cu. d'Outlook, tant pis ... Pour le mail &#224; cr&#233;er en "mod&#232;le" c'est parfait car je ne savais pas comment faire, mais depuis le d&#233;but c'&#233;tait en fait mon objectif plus souple que le corps du message dans une cellule Excel, notamment en terme de signature. Mais je ne sais ni comment enrg. le mail en "mod&#232;le Outlook" (mais &#231;a je devrais pouvoir trouver avec l'aide) ni comment l'appeler depuis Excel (ta proposition de code d'appel de mail est donc bienvenue !). Au sujet de mes pi&#232;ces jointes multiples, voici un peu plus d'explication :
Dans ton code tu proposais d'identifier le fichier et son chemin et cela marche tr&#232;s bien. Maintenant j'ai un nombre variable de pi&#232;ces jointes qui commence toutes, pour un m&#234;me destinataire, par son nom. Je voudrais pouvoir ins&#233;rer dans le code un moyen de faire attacher au mail toutes les pi&#232;ces jointes qui commence par exemple par "michel". J'ai essay&#233;e de prendre le nom (commun &#224; toutes les pi&#232;ces jointes) et de faire une commande du type : chemin\michel.*.xls en esp&#233;rant que comme dans une recherche l'&#233;toile prendrait tout, mais &#231;a marche pas ... tes suggestions sont les bienvenues.
Merci encore
Olivier

cs_jordinette · Answer

Bonjour,
pour créer un mail modèle dans outlook, c'est simple tu créer un mail avec le bouton Nouveau, tu rédige ton mail et au lieux d'envoyer tu choisir Ficher/Enregistrer Sous, tu lui donne un nom, tu choisis le type de ficher "Modèle outlook", puis le répertoir où tu veux le sauvegarder. Attention si tu choisis le répertoire avant le type de fichier il te remettra le répertoire "Modèle" par défaut.

'Appel du mail modèle
    'envoie du mail
    'Initialisation:
    Dim MonOutlook As Object
    Dim MonMessage As Object
    
    Set MonOutlook = CreateObject("Outlook.Application")

    Set MonMessage = MonOutlook.CreateItemFromTemplate(chemin & "\mail.oft")
    
    Set attach = MonMessage.Attachments
    
        MonMessage.Subject = "Objet du mail"
        
        fichier = ' là je sais pas encore comment joindre tous les fichiers qui commencent pareil mais je cherche

        MonMessage.Attachments.Add fichier
          
      ' enregistrement dans Brouillon, mettre Monmessage.send pour un envoi direct (moi je préfère un envoi grouper et pouvoir vérifier depuis la boite brouillon d'outlook)

        MonMessage.Save
    
    'Fermeture de la session Outlook :
    Set MonOutlook = Nothing

'effacer le contenu
MsgBox " Le mail a été généré dans le dossier Brouillons d'Outlook ! ", vbInformation

Voilà pour l'exemple, si j'ai 5 minute je vais essayé de trouver comment joindre une plage de fichier commencant par les mm lettres.
Bon courage
Jordinette

marinolive · Answer

Bonjour et merci encore ...
J'avais fini par trouver pour le mod&#232;le dans Outlook, mais pas pour le code d'appel du mod&#232;le dans Excel !
En ce qui concerne mon probl&#232;me de plage de pi&#232;ces jointes, j'ai un d&#233;but de piste un peu compliqu&#233; mais qui bugue &#224; un endroit :
code :
     For Each C In Selection
    
    'J'ai "ROBERT" en Cellule c et mon chemin en (0,4)
    MyPath = Range(C.Offset(0, 4).Address)
    
    'je fais copier en cellule (0,5) la premi&#232;res pi&#232;ce jointe qui commence par "PC ROBERT"
    Range(C.Offset(0, 5).Address) = Dir(Range(C.Offset(0, 4).Address) & "PC " & Range(C.Address) & "*")
    
    'je fais une boucle pour que soient copi&#233;s successivement tous les fichiers commen&#231;ant par "PC ROBERT"
    'dans les 15 cellules adjacentes
    For i = 6 To 15
    Range(C.Offset(0, i).Address) = Dir
    Next i
    '&#231;a marche, mais le probl&#232;me c'est que le nbre de pi&#232;ces jointes est variable et que s'il est inf&#233;rieur
    '&#224; 15, Excel se met en d&#233;bogage, or j'ai du code derri&#232;re &#224; ex&#233;cuter ...
   
   Next C

Saurais-tu comment introduire un &#233;l&#233;ment dans la boucle pour dire &#224; excel que s'il ne trouve plus de pi&#232;ces jointes commen&#231;ant par "PC ROBERT", il arr&#234;te la boucle et passe au reste du code ?

Evidemment si tu as une solution plus simple pour g&#233;rer le groupe de pi&#232;ces jointes tu es bienvenue  !


Si je peux me permettre d'abuser de ton temps, j'ai une autre question : quand sous vba je convertis des doc excel en pdf en passant par l'impression sur acrobat distiller, je dois syst&#233;matiquement valider l'enregistrement du fichier sous Adobe en cliquant sur oui, saurais-tu comment automatiser cette valisation ?

Et vraiment merci !

cs_jordinette · Answer

Re,
J'ai trouvé plus simple, je planche dessus pour l'adapter au morceau de code que je t'ai donné précédement... Tu sais dans quels dossiers tes fichiers a joindre se trouvent? où tu veux qu'il cherche sur tout les disque durs? et tout type de fichier? ou seulement .xls?
j'espère te donner la soluce dans l'après midi ;o)
Jordinette

marinolive · Answer

Bravo ! car je progresse mais il me reste juste cet obstacle ...
Pour te r&#233;pondre, je sais dans quel dossier sont les fichiers, et je cherche tout type de fichier car j'ai du .xls., du .pdf et &#233;ventuellement du .doc

Merci beaucoup !
Olivier (et je guette ta r&#233;ponse ;-))

cs_jordinette · Answer

Ayé j'y arrive!
Parcontre pour cà:
"Si je peux me permettre d'abuser de ton temps, j'ai une autre question : quand sous vba je convertis des doc excel en pdf en passant par l'impression sur acrobat distiller, je dois systématiquement valider l'enregistrement du fichier sous Adobe en cliquant sur oui, saurais-tu comment automatiser cette valisation ?" Je ne sais pas du tout, mais je dirai que c'est du même ordre que pour la sécurité outlook précédement évoqué. ou tu as peut etre une solution du genre Monapp.Mondocument.save. Car sur Excel si tu veux évité qu'il te demande de sauvegarder ton classeur quand tu le fermes, si tu mets dans ton code juste avant le MonExcel.close une ligne MonExcel.activeworkbook.save la confirmation de sauvegarde n'est pas demandé.

Pour la solution voici le code dont je me suis servi:

Private Sub CommandButton1_Click()


 chemin = "C:\Documents and Settings\user\Mes documents" 'chemin du dossier contenant le modèle de mail

'Appel du mail modèle
    'envoie du mail
    'Initialisation:
    Dim MonOutlook As Object
    Dim MonMessage As Object
    
    Set MonOutlook = CreateObject("Outlook.Application")

    Set MonMessage = MonOutlook.CreateItemFromTemplate(chemin & "\mail.oft")
    
    Set attach = MonMessage.Attachments
    
        MonMessage.Subject = "Objet du mail"

CheminEtNomDuFichierTrouver = ""

'trouve tous les fichiers commencant par "test"
 With Application.FileSearch
    .NewSearch
    .LookIn = "C:" 'séparer par des ; si plusieurs répertoires
    .Filename = "test*.*" 'séparer par des ; si plusieurs références de recherche
    .FileType = msoFileTypeAllFiles
    .LastModified = msoLastModifiedAnyTime
    .SearchSubFolders = True
'C'est parti :
    .Execute
    
If .FoundFiles.Count <> 0 Then 'boucle qui permet si il y a un ou plusieurs fichier de les ajouter au mail
    For Ctr = 1 To .FoundFiles.Count

    CheminEtNomDuFichierTrouver = .FoundFiles(Ctr)

    MonMessage.Attachments.Add CheminEtNomDuFichierTrouver 'ajout du fichier trouvé
    
    Next
Else
'mettre un appel vers la procédure suivante ou un exit sub
End If

  End With

 
      ' enregistrement dans Brouillon, mettre Monmessage.send pour un envoi direct (moi je préfère un envoi grouper et
'pouvoir vérifier depuis la boite brouillon d'outlook)

        MonMessage.Save
    
    'Fermeture de la session Outlook :
    Set MonOutlook = Nothing

'effacer le contenu
MsgBox " Le mail a été généré dans le dossier Brouillons d'Outlook ! ", vbInformation
End Sub


Attention: si tu demande au programme de chercher dans tout C:/, ça va mouliner un max, donc il se peut qi tu a beaucoup de fichiers qu'il mette jusqu'à 5 min ou plus pour te généré le mail et y coller les pièches jointes!

voilà bon courage et hésite pas à redemander si les choses ne sont pas assez claire ;o)
Jordinette

marinolive · Answer

G&#233;nial !!

Merci encore pour tout le temps pass&#233; et la rapidit&#233; de tes r&#233;ponses, &#231;a va me permettre de bien rationnaliser les choses car je dois r&#233;guli&#232;rement faire ce type d'envoi pour une centaine de personnes, or &#224; la main c'&#233;tait vraiment fastidieux !

Peut-&#234;tre &#224; bient&#244;t ;-)
Olivier

marinolive · Answer

Bonsoir Jordinette,
J'ai un dernier petit souci ... en effet tu as vu que j'avais fait un "For each c in selection" pour pouvoir faire une boucle. Or tout fonctionne impeccable sauf que dans mes brouillons, au lieu de mettre tous les mails les uns apr&#232;s les autres, il les &#233;crase. Quand je s&#233;lectionne plusieurs c, je n'ai donc en brouillon que le dernier (mais j'ai pu voir d&#233;filer tous les autres en me mettant sur Outlook pendant la macro.

Saurais-tu comment faire pour &#233;viter l'&#233;crasement ? et que j'ai bien mes 10 mails plut&#244;t que seulement le dernier quand je s&#233;lectionne 10 personnes ?

A tout hasard je te mets mon code complet pour que tu aies une vue d'ensemble :
Sub Envoi

    Dim MonOutlook As Object
    Dim MonMessage As Object
    
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItemFromTemplate("P:\1-Gestion\Mod&#232;les mails" & Range("C1"))
    Set attach = MonMessage.Attachments


For Each c In Selection
    MonMessage.To = Range(c.Offset(0, 1).Address)
    
'TROUVE LES FICHIERS COMMENCANT PAR LA MEME SERIE DE LETTRES
    CheminEtNomDuFichierTrouver = ""
    With Application.FileSearch
        .NewSearch
        .LookIn = (Range("C2"))
        .Filename = "PC " & Range(c.Address) & "*"  '"test*.*" 's&#233;parer par des ; si plusieurs r&#233;f&#233;rences de recherche
        .FileType = msoFileTypeAllFiles
        .LastModified = msoLastModifiedAnyTime
        .SearchSubFolders = True
        .Execute
        
        If .FoundFiles.Count <> 0 Then 'boucle qui permet si il y a un ou plusieurs fichier de les ajouter au mail
            For Ctr = 1 To .FoundFiles.Count
            CheminEtNomDuFichierTrouver = .FoundFiles(Ctr)
            MonMessage.Attachments.Add CheminEtNomDuFichierTrouver 'ajout du fichier trouv&#233;
            Next
        Else
            MsgBox " Il n'y a pas de pi&#232;ce jointe correspondant &#224; cet auditeur ! ", vbInformation
            Exit Sub
        End If
    End With
        
    MonMessage.Save
    'Monmessage.send pour un envoi direct
        
    'Fermeture de la session Outlook :
    Set MonOutlook = Nothing


    'effacer le contenu
    'MsgBox " Le mail a &#233;t&#233; g&#233;n&#233;r&#233; dans le dossier Brouillons d'Outlook ! ", vbInformation
    
Next c


End Sub

marinolive · Answer

Bonjour Jordinette,

Je viens de m'apercevoir que mon probl&#232;me &#233;tait juste li&#233;e &#224; la position du "For each c in selection", ne tiens donc pas compte de mon message pr&#233;c&#233;dent.

Merci pour tout !
Olivier

marinolive · Answer

Bonsoir Jordinette,

N'ayant pas trouvé la solution sur internet, je me tourne une nouvelle fois vers toi ! Voici mon problème :
J'ai un fichier excel dont le nombre d'onglet est variable. Et je souhaite sélectionner plusieurs onglets : du 7° au dernier.  Or soit je peux utiliser un sheets(array(... mais il faut fournir la liste exacte des onglets (que je n'ai aps puisqu'elle varie) soit je fais un sheets.select mais il me les sélectionne tous ...

Aurais-tu une idée ? merci !

dardeviIIe · Answer

Bonjour, a tous je ne comprend pas pour quoi mon
code ci-dessous ne fonctionne pas ou ci que l'envois du mail pas le
déclenchement à heure fixe.

merci pour votre aide....

Sub SendPlng()

' lance la macro SendParMail à 09:00:00 heures

Application.OnTime TimeValue("15:51:00"), ("SendParMail"), True

End Sub

Sub SendParMail()

'cette macro envois par mail la feuille excel active

ThisWorkbook.Sheets("Fev").Copy

ActiveWorkbook.SendMail ("dardeviIIe@msn.com")

ActiveSheet.Copy

End Sub

Envoi de mail via Excel

19 réponses

Discussions similaires