Bonjour,
Je rencontre un petit souci avec mon code VBA (je suis débutant), j'ai pour objectif de programmer à l'aide d'une macro, un envoi de mail via Outlook. Ce mail contient un template qui est crée à base de RechercheV. A l'interieur de ce mail, j'aimerai y joindre plusieurs Pj, vous apercevrez plus bas que mon code n'est pas très très optimisé ahah, dû au faite que pour envoyer plusieurs pj j'ai du réaliser un code qui me permettais d'envoyer une seul PJ et ensuite faire un LoopUntil.
J'aimerais savoir si il est possible de choisir plusieurs Pj à la fois lorsque je clique sur la macro ?
Pour l'envoie de mail je n'arrive pas à mettre plusieurs personnes en copi, j'ai essayé plusieurs méthodes mais je n'y arrives pas :/.
Pour finir j'utilise une macro qui me permet d'envoyer ce que je selectionne c'est à dire de la cellule A4 à F16 et je me pose la question suivante : est il possible au lieu de selectionner l'ensemble du template, de dire au code de directement envoyer le mail de la cellule A4 a F16 ?
Je vous remercie
Voici le code :
Je rencontre un petit souci avec mon code VBA (je suis débutant), j'ai pour objectif de programmer à l'aide d'une macro, un envoi de mail via Outlook. Ce mail contient un template qui est crée à base de RechercheV. A l'interieur de ce mail, j'aimerai y joindre plusieurs Pj, vous apercevrez plus bas que mon code n'est pas très très optimisé ahah, dû au faite que pour envoyer plusieurs pj j'ai du réaliser un code qui me permettais d'envoyer une seul PJ et ensuite faire un LoopUntil.
J'aimerais savoir si il est possible de choisir plusieurs Pj à la fois lorsque je clique sur la macro ?
Pour l'envoie de mail je n'arrive pas à mettre plusieurs personnes en copi, j'ai essayé plusieurs méthodes mais je n'y arrives pas :/.
Pour finir j'utilise une macro qui me permet d'envoyer ce que je selectionne c'est à dire de la cellule A4 à F16 et je me pose la question suivante : est il possible au lieu de selectionner l'ensemble du template, de dire au code de directement envoyer le mail de la cellule A4 a F16 ?
Je vous remercie
Voici le code :
VB:
Sub Bouton1_Cliquer()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
Dim Fichier As Variant
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
.to = "test@outlook.com"
.CC = "test@gmail.com" ; "test2@gmai.com"
.Subject = "Devis SR: " & Range("a5") & " / " & Range("b5") & " / " & Range("c5")
.Body = ActiveCell
Selection.Copy
oObjetWord.Range(0).Paste
.Display
End With
Do
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
MsgBox Fichier
ajoutpj = MsgBox("Ajouter une autre pièce jointe ?", vbYesNo, "Ajout Pièce Jointe")
oMail.attachments.Add Fichier
Loop Until ajoutpj = vbNo
oMail.Send
Set oOutlook = Nothing
MsgBox " Votre mail à bien été envoyé."
End Sub