Envoie par mail

xhudi69

XLDnaute Accro

• 10 Décembre 2012

• #2

Re : Envoie par mail

Bonsoir yann, Forum,

ci-dessous le code pour un envoie automatique par mail que tu peux facilement modifier.

Code:

Dim messageHTML
On Error GoTo errorHandler
Sheets("Feuil9").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Feuil9.pdf"

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Relevé horaire"
objMessage.From = "blabla@free.fr" 'pas obligatoire
 objMessage.To = "reblabla@free.fr"       'obligatoire
 objMessage.TextBody = "Bonjour," & vbCrLf & "Veuillez trouver en piéce jointe votre relevé d'heures" & vbCrLf & "excellente journée"
 piece_jointe = ActiveWorkbook.Path & "\" & "Feuil9.pdf"
 messageHTML = "Ceci est un message en HTML"

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update

objMessage.AddAttachment (piece_jointe)
 objMessage.Send
MsgBox "Le mail a été bien envoyé !"

@+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Décembre 2012

• #3

Re : Envoie par mail

Bonsoir à tous


Pour info:
Vérifier si la référence à CDO est bien cochée dans VBE.
Car ce n'est pas toujours le cas.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #4

Re : Envoie par mail

Bonsoir à tous,

Sinon comme demandé, avec Outlook et uniquement les plages B5:B20 et O5:O20.

Un très bon code de Ron de Bruin, voir son site, il suffit du traducteur de google pour comprendre.

A te relire

Martial

 

Pièces jointes

• Envoi mail Plage cellule dans le corps du mail.xlsm

  19.9 KB · Affichages: 49
• Envoi mail Plage cellule dans le corps du mail.xlsm

  19.9 KB · Affichages: 56
• Envoi mail Plage cellule dans le corps du mail.xlsm

  19.9 KB · Affichages: 53

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 10 Décembre 2012

• #5

Re : Envoie par mail

Re Yaloo,
Bonsoir Staple1600

merci pour le lien, c'est interressant, je l'ai mis en favoris, pour ma part CDO me vat bien, rapide et simple.

@+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #6

Re : Envoie par mail

Salut xhudi69,

Moi aussi j'utilise CDO, mais je m'adapte à la demande. Sachant qu'au boulot, avec les protections qu'ils nous mettent, CDO ne passe pas alors je passe par Outlook.

A+

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 10 Décembre 2012

• #7

Re : Envoie par mail

Re Yaloo,

maintenant je comprends mieux, si tu passe via un serveur d'entreprise, OUTLOOK est obligatoire.

Exellente soirée à toi

 

Vote positif 0 Vote négatif

Y

yannn

XLDnaute Nouveau

• 10 Décembre 2012

• #8

Re : Envoie par mail

J'avance ^^
Tous se passe bien pour la copie est l'insertion dans une nouvelle feuille excel mais ca n'y envoie pas par mail.
Un petit coup de main encore svp
Cordialement.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #9

Re : Envoie par mail

Bonsoir Yannn,

Avec quel code ?

A+

 

Vote positif 0 Vote négatif

Y

yannn

XLDnaute Nouveau

• 10 Décembre 2012

• #10

Re : Envoie par mail

C'est le votre qui marche mais qui n'envoie pas de mail.

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #11

Re : Envoie par mail

Re,

As-tu bien changé l'adresse du destinataire ?

Le mail n'arrive-t-il pas dans le dossier des "Courrier indésirable" ?

A te relire

Martial

 

Vote positif 0 Vote négatif

Y

yannn

XLDnaute Nouveau

• 10 Décembre 2012

• #12

Re : Envoie par mail

Je te remercie de la rapidité de tes réponses.
Biensur j'ai mit mon adresse personnelle pour le test sans rien changer d'autre et non rien en courier indésirable.
Normalement la macro ouvre outlook?

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #13

Re : Envoie par mail

Je viens de faire des tests, il faut que Outlook soit ouvert lorsque tu lances la macro.

Martial

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 10 Décembre 2012

• #14

Re : Envoie par mail

Re,

Ci-dessous mon fichier amélioré, si Outlook n'est pas ouvert alors Excel va l'ouvrir et envoyer le message, si Outlook est déjà ouvert alors Excel envoi directement le message.

A tester chez toi, chez moi ça fonctionne correctement.

A te relire

Martial

 

Pièces jointes

• Envoi mail Plage cellule dans le corps du mail.xlsm

  20.8 KB · Affichages: 63
• Envoi mail Plage cellule dans le corps du mail.xlsm

  20.8 KB · Affichages: 71
• Envoi mail Plage cellule dans le corps du mail.xlsm

  20.8 KB · Affichages: 71

Vote positif 0 Vote négatif

Y

yannn

XLDnaute Nouveau

• 10 Décembre 2012

• #15

Re : Envoie par mail

Je viens d'essayer sa marche mais le mail reste en boite d'envoie. Est ce normale?

 

Vote positif 0 Vote négatif