Bonjour,
Je suis étudiant et j'ai un projet en cours que j'aimerai bien réaliser grâce à vous ^^.
Alors voila, j'ai pour objectif de réaliser un fichier excel qui regroupe une base de donnée et à l'aide de celle-ci, j'ai réalisé 2 macros pour faciliter l'envoi de mail.
Dans la premiere macro se trouve le code qui permet d'envoyer par mail ce que nous avons au préalable selectionné c'est à dire le template ainsi que le nom du client :
Sub Bouton1_Cliquer()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
.to = "test@gmail.com"
.Subject = "TETS : " & Range("a12")
.Body = ActiveCell
Selection.Copy
oObjetWord.Range(0).Paste
.Display
End With
End Sub
La deuxieme macro qui permet d'envoyer par mail un fichier PDF :
Sub envoieClasseur()
Dim Fichier As Variant
'le programme ouvre une fenêtre où l'on sélectionne le fichier'
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
MsgBox Fichier
'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.Createitem(0)
'ici nous définissons les champs du mail'
'entre guillemet il faut indiquer les adresses mail'
MonMessage.to = "test@gmail.com"
MonMessage.CC = "test@outlook.com"
'ici nous commencons la rédaction du mail'
MonMessage.attachments.Add Fichier
'sujet du mail'
MonMessage = "Test envoi PJ depuis Excel"
'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
'les caractères CHr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier Excel" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "TEST"
MonMessage.body = contenu
'ici on provoque l'envoi du mail et de sa pièce jointe'
MonMessage.Send
'réinitialisation de la messagerie'
Set MaMessagerie = Nothing
'Boite de dialogue qui confirme envoi du message et de sa pièce jointe'
MsgBox " Votre mail à bien été envoyé"
End Sub
Voici les deux macros, cependant j'aimerai bien les fusionner en 1 seul et même boutton qui permettrait toujours d'envoyer la selection par mail et d'y joindre un fichier PDF.
Je suis ouvert à tout autres propositions pour faciliter l'envoie de devis à l'aide d'une base de donnée.
Je vous remercie.
soNZO.
Je suis étudiant et j'ai un projet en cours que j'aimerai bien réaliser grâce à vous ^^.
Alors voila, j'ai pour objectif de réaliser un fichier excel qui regroupe une base de donnée et à l'aide de celle-ci, j'ai réalisé 2 macros pour faciliter l'envoi de mail.
Dans la premiere macro se trouve le code qui permet d'envoyer par mail ce que nous avons au préalable selectionné c'est à dire le template ainsi que le nom du client :
Sub Bouton1_Cliquer()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
.to = "test@gmail.com"
.Subject = "TETS : " & Range("a12")
.Body = ActiveCell
Selection.Copy
oObjetWord.Range(0).Paste
.Display
End With
End Sub
La deuxieme macro qui permet d'envoyer par mail un fichier PDF :
Sub envoieClasseur()
Dim Fichier As Variant
'le programme ouvre une fenêtre où l'on sélectionne le fichier'
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
MsgBox Fichier
'ici on demande d'utiliser Outlook comme client de messagerie'
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.application")
Set MonMessage = MaMessagerie.Createitem(0)
'ici nous définissons les champs du mail'
'entre guillemet il faut indiquer les adresses mail'
MonMessage.to = "test@gmail.com"
MonMessage.CC = "test@outlook.com"
'ici nous commencons la rédaction du mail'
MonMessage.attachments.Add Fichier
'sujet du mail'
MonMessage = "Test envoi PJ depuis Excel"
'Corps du mail'
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
'les caractères CHr indiquent un saut de ligne'
contenu = contenu & "Veuillez trouver en pièce jointe le fichier Excel" & Chr(10) & Chr(13)
contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
contenu = contenu & "TEST"
MonMessage.body = contenu
'ici on provoque l'envoi du mail et de sa pièce jointe'
MonMessage.Send
'réinitialisation de la messagerie'
Set MaMessagerie = Nothing
'Boite de dialogue qui confirme envoi du message et de sa pièce jointe'
MsgBox " Votre mail à bien été envoyé"
End Sub
Voici les deux macros, cependant j'aimerai bien les fusionner en 1 seul et même boutton qui permettrait toujours d'envoyer la selection par mail et d'y joindre un fichier PDF.
Je suis ouvert à tout autres propositions pour faciliter l'envoie de devis à l'aide d'une base de donnée.
Je vous remercie.
soNZO.