Code VBA pour envoi mail outlook via Excel

Bonjour ,

je suis débutante en vba , si quelqu'un peut M'AIDER SVP .

CI JOINT MON FICHIER

vous trouverez le format de mon mail que je dois envoyer. pouvez vous svp m'aider pour de le codage svp .

Bonjour

J'ai mis des adresses perso pour tester, tu les changeras.

Code Module

Sub envoiPlageCellules_Excel()
ActiveSheet.Range("A1:D27").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = Range("A9")
    .Item.To = Range("B1")
    .Item.Subject = Range("B3")
    .Item.CC = Range("B2")
    .Item.Send
End With
Range("A1").Select
End Sub

Cordialement

Edit: Les adresses du fichier initial ont été modifiées.

Salut...

mille merci pour ton aide ...il me fait une notification" accepter ou refuser lors de l'envoi sur outlook" y a t-il un moyen de ne plus avoir de ce message.

Salut aussi...

Qui c'est le "Il me fait..."? Excel ou Outlook?

Avec mon Excel 2013, je n'ai aucun message..

Cordialement

je te mis les capture dans le docs word .

merci d'avance pour ton aide

Bonjour,

dans "Body" j'aimerais renvoyer le texte appartenant aux cellules à la ligne, pour que cela soit plus propre à lire.

With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.

.Subject = Range("C11") & Range("g" & ligne) & Range("C12") & Range("d" & ligne) 'le sujet + le numéro de CCN

.To = Range("c" & ligne) 'placer l'adresse mail de la ligne

.CC = Range("c" & ligne) 'placer un second déstinataire

.Body = Range("C13") & Range("f" & ligne) & Range("D13") & Range("C14") & Range("C15") 'placer texte et signature

.Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer

End With

Quelqu'un pourrait-il m'aider ?

Merci d'avance

Bonjour homica

- pour passer à la ligne, ajoute vbcrlf

exemple :

.body = Range("C13") & vbcrlf & Range("f" & ligne) 

- pour ajouter ta signature, il faut ajouter & body à la fin

.body = Range("C13") & vbcrlf & Range("f" & ligne) & .body

mais je pense que le mieux serait de passer en htmlbody, le vbcrlf devient alors "<br>"

.htmlbody = Range("C13") & "<br>" & & Range("f" & ligne) & .htmlbody

Bonsoir,

maintenant, je me débrouille. merci Steelson !

bonjour,

Comment surligner ou mettre en gras mes cellules pour avertir mes futurs lecteurs d'@mail ?

Merci d'avance

Bonjour,

avec .htmlBODY, encadre le texte par <b>______</b> pour mettre en gras et <u>___________</u> pour souligner, et <u><b>________</b></u> pour combiner les 2.

Bonjour,

Merci Steelson, j'essaie en vain de trouver sous "htmlbody" les codes pour :

_ permettre aux lecteurs d'identifier mon adresse @mail dans ma signature comme lien hypertexte.

et aussi

_ permettre aux lecteurs d'identifier un lien internet dans ma signature tel que "

" comme lien lien hypertexte.

Merci d'avance

Pour indiquer une lien :

<a href="www.luluetlili.fr">cliquer pour accéder au site</a>

attention, doubler les " si c'est dans un code VBA

Bonsoir,

Les codes ci-dessous ne fonctionnent pas en lien internet, Pourquoi ?

.HTMLBody = "<ahref>" & "

" & "</a>"

.HTMLBody = "<ahref>" & "mihomo@gmail.com" & "</a>"

Merci d'avance

il manque un espace !!

<a href....................

Bonsoir,

Cela ne fonctionne pas, habituellement lorsque l'on crée un lien hypertexte, il se surligne en bleu mais là non.

Comme-ci la phrase n'avait pas de lien à proposer.

_ "<a href>" & "

" & "</a>" & "<br>" & "<a href>" & "mihomo@gmail.com" & "</a>" 'texte et signature

Lorsque le mail s'ouvre pas de signe de lien hypertexte, pas de couleur, et la touche ctrl ne sert à rien.

Merci d'avance

Regarde bien comment je l'ai écrit ici : https://forum.excel-pratique.com/viewtopic.php?p=701079#p701079

il n'y a pas de > après a href

n'oublie pas non plus de doubler les " comme dit ci-dessus

en bref ...

_ "<a href=""www.afiklmem.com"">visiter le site afiklmem</a>" & "<br>" & "<a href=""mailto:mihomo@gmail.com?Subject=Hello%20again"">contact</a>"

Cela fonctionne, Merci.

Il me fallait ce coup de pouce...

Private Sub CommandButton1_Click()

Dim LeMail As Variant
Dim ligne As Integer

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlouk

For ligne = 6 To 9

    If Range("e" & ligne) < Date - 45 Then

        With LeMail.CreateItem(olMailItem) ' informe le programme que nous voulons envoyer un mail.
            .Subject = Range("C11") & Range("g" & ligne) & Range("C12") & Range("d" & ligne) 'le sujet + le numéro de CCN
            .To = Range("c" & ligne) 'placer l'adresse mail de la ligne
            .CC = Range("c" & ligne)  'placer un second déstinataire
            .HTMLBody = Range("C13") & "<br>" & "<br>" & Range("C14") & "<u><b>" & Range("f" & ligne) & "</b></u>" & Range("C15") & "<br>" & "<br>" & "<u><b>" & "<p style=""font-size:30px;color:blue"">" & Range("C16") & "</b></u>" & "</p>" & "<br>" & "<br>" & Range("C18") & "<br>" & "<br>" & Range("C19") & "<br>" & Range("C20") & "<br>" & Range("C21") & "<br>" & Range("C22") & "<br>" & Range("C23") & "<a href=""mailto:miho@aice.fr?Subject=Hello%20again"">miho@re.fr</a>" & "<br>" & "<a href=""www.aem.com"">www.afiklmem.com</a>" 'texte et signature"
            .Attachments.Add ("C:\Users\michael\OneDrive\Documents\guide-pratique-internet-courriels-reduire-impacts.pdf") 'pièce jointe
            .Display 'afficher le mail avant de l'envoyer sinon placer send pour envoyer
        End With

    End If

Next ligne

End Sub