Envoie par mail

[yannn]

Bonjour à tous,

je me suis mit au langage VBA depuis 3 semaines maintenant, et j'ai réussi jusqu’à présent à me débrouiller seul.
Mais là je coince depuis un moment .

Voila ce que je voudrais faire:
J'aimerais créer un code qui me permette de copier des plages de cellules (B520) et (O5:O20) pour en suite les coller dans un mail outlook et que sa envoie le mail automatiquement à une adresse.

Donc voila j'ai déjà essai de prendre plein de code et de le remanier mais à chaque fois sa c'est finit par un échec.

Si vous pouviez m'aider.
Cordialement

 

[xhudi69]

Re : Envoie par mail

Bonsoir yann, Forum,

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

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é !"

@+

 

[Staple1600]

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.

 

[Yaloo]

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

 

[xhudi69]

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.

@+

 

[Yaloo]

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+

 

[xhudi69]

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

 

[yannn]

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.

 

[Yaloo]

Re : Envoie par mail

Bonsoir Yannn,

Avec quel code ?

A+

 

[yannn]

Re : Envoie par mail

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

 

[Yaloo]

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

 

[yannn]

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?

 

[Yaloo]

Re : Envoie par mail

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

Martial

 

[Yaloo]

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

 

[yannn]

Re : Envoie par mail

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