Envoi de Mail VIA VBA

Version imprimable

Bonjour,

J’ai une petite problématique
J’ai besoin de faire une envoi automatique d’in mail OUTLOOK via VBA mais a condition avant l’envoi j’ai besoin de compresse le fichier en RAR vu la taille importante du fichier
Ci-dessous le scripte vous pouvez voir si il y a une partie a ajouter encore une chose j’ai besoin de laisse le fichier sur la feuille Accueil par défaut lors de l’envoi :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub mailchat() Dim Ol As New Outlook.Application Dim OlMail As MailItem Dim CurrFile As String Dim ListeDEST As String Dim ListeCC As String Worksheets("TCD").Activate Sheets("TCD").Visible = True ActiveSheet.Range("A1:D36").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "" .Item.To = Sheets("TCD").Range("U1") .Item.CC = Sheets("TCD").Range("U2") & (";") & Sheets("TCD").Range("U3") & (";") & Sheets("TCD").Range("U4") .Item.Subject = " Dépassement de pause CHAT " .Item.Send MsgBox " Votre alerts à été envoyé à l'ensemble des encadrants " & vbCr & " Merci " ThisWorkbook.Save End With End Sub

01/04/2015, 16h23
kiki29

Salut, voir ici, en l'adaptant à ton contexte pour l'envoi via CDO ( ici un PDF mais cela peut être n'importe quel fichier )

pour zipper un fichier voir la FAQ, sinon il y a aussi 7zip ( le plus performant de tous pour le taux de compression )

Apparemment j’ai pas de réponse à ma problématique sauf que j’ai trouvé une solution alternatif pour l’envoi de mail sauf que je suis bloqué sur une partie
J’ai deux feuille (mail) et (Accueil) lors de l’envoi j’ai besoin de masque tous les feuilles et mettre le classeur sur la feuille accueil par défaut pour que lors de l’envoi le client accède à partir du mail directement à la partie ACCEUIL
Il y a-t-il une solution ??

ci dessous mon code utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub mailchat() Dim Ol As New Outlook.Application Dim OlMail As MailItem Dim CurrFile As String Dim ListeDEST As String Dim ListeCC As String Worksheets("Mail").Activate Sheets("Mail").Visible = True ActiveSheet.Range("A1:F32").Select ' la plage de cellules à envoyer ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Introduction = "" .Item.To = Sheets("Mail").Range("U1") .Item.CC = Sheets("Mail").Range("U2") & (";") & Sheets("Mail").Range("U3") & (";") & Sheets("Mail").Range("U4") .Item.Subject = " Flash Prod " .Item.Attachments.Add ActiveWorkbook.FullName .Item.Send MsgBox " Votre Reporting à été envoyé à l'ensemble des encadrants " & vbCr & " Merci " Sheets("Mail").Visible = False Sheets("Accueil").Visible = True ThisWorkbook.Save End With End Sub

01/04/2015, 16h38
joe.levrai
Bonjour,

tout ce qu'il te faut est déjà dans ton code quasiment

il faut ajouter une ligne d'enregistrement du classeur juste après
Code:

1 2 3 Sheets("Mail").Visible = False Sheets("Accueil").Visible = True
et positionner ces trois lignes de code en dessous de :
Code:

1 2 .Item.Subject = " Flash Prod "
Ps : éviter au maximum les "ActiveWorkbook" et "ActiveSheet" et plutôt faire référence explicitement aux objets
01/04/2015, 18h38
a.ouguerzam

on ajouter les deux lignes en dessous de :

Code:

.Item.Subject = " Flash Prod "

j'ai un message d'erreur debocage

tu pense que normal

le but pour moi si d'affiche la feuille ACCEUIL en piece joint au lieu de la feuille Mail ou il y a le parametrage de l'envoi de main automatique
je vois les choses simple mais j'arrive pas !!
01/04/2015, 18h55
joe.levrai
Quel est le message d'erreur, et sur quelle ligne ??

Attention, là on masque "Mail" avant d'afficher "Accueil"

Si la feuille "Mail" était la seule feuille visible, c'est normal qu'il y ai erreur : impossible d'avoir 0 feuille visible

Inverse les deux lignes et regarde si c'est ok :
Code:

1 2 3 Sheets("Accueil").Visible = True Sheets("Mail").Visible = False
01/04/2015, 19h13
a.ouguerzam

Ça marche maintenait sauf que j’ai le contenu de la page accueil sur le corps du mail juste une image
L’essentielle pour moi de prendre le contenu de la feuille (mail) et lors de l’envoi en pièce joint je garde la feuille (Accueil) par défaut comme ça mon client va voir la feuille accueil ou j’ai l’interface
01/04/2015, 19h25
joe.levrai

Normalement tu devrais trouver ton bonheur ici : http://excel.developpez.com/faq/?page=Messagerie

J'ai un peu de mal à comprendre ce que tu souhaites réellement.

Je vous expliquez
J’ai un fichier avec plusieurs feuilles, sur la feuille accueil j’ai juste une interface avec des boutons qui peut jouer entre les feuille. Et sur la feuille Mail j’ai bien mis le corps du mail avec un tableau et ma signature Outlook et une phrase avec la date du jour.
alors ci dessous la partie ou le code cherche la feuille Mail pour recupere le corps du mail et les phrases et ma signature
Code:

1 2 3 Worksheets("Mail").Activate Sheets("Mail").Visible = True ActiveSheet.Range("A1:F32").Select ' la plage de cellules à envoyer
après j'active l'enveloppe pour envoyer le mail avec les destinataires et l’Object :
Code:

1 2 3 4 5 With ActiveSheet.MailEnvelope .Introduction = "" .Item.To = Sheets("Mail").Range("U1") .Item.CC = Sheets("Mail").Range("U2") & (";") & Sheets("Mail").Range("U3") & (";") & Sheets("Mail").Range("U4") .Item.Subject = " Flash Prod "
juste après j'ai besoin de masque la feuille Mail vu que j'ai bien récupère tous les donnes et affiche la feuille accueil pour attache le fichier et l'envoyé comme ça le client aura sur un mail un tableau avec une phrase que j'ai mis et ma signature et sur le fichier l'interface

NB : que le bouton pour exécuter la macro et bien implanté sur la feuille accueil

J’espère que j’étai bien claire