Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Envoi de mail!

Envoi de mail!

5 réponses
Avatar
Philou
bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec comme
paramêtres prés établis l'adresse du destinataire et l'objet afin que celui
qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
GVentre
Bonjour Philou,

Si le logiciel de messagerie est outlook:

Sub SendMail()

Dim Ol As Object

Dim Email As Object

Dim wd As Object





'***************************************************************

' Création objet Application Outlook

'***************************************************************

Set Ol = CreateObject("outlook.Application")





'***************************************************************

' Création objet Nouveau message

'***************************************************************

Set Email = Ol.CreateItem(olMailItem)





'***************************************************************

' Liste de diffusion : A

'***************************************************************

Set Recipient = Email.Recipients.Add(";
")





'***************************************************************

' Objet

'***************************************************************

Email.Subject = "Compléter l'objet"





'***************************************************************

' Attachement de la pièce jointe

'***************************************************************

Set Attachment = Email.Attachments

Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du fichier
joint"


'1 signifie en tant que pièce jointe et pas raccourci



'***************************************************************

' Affichage mail

'***************************************************************

Email.Display
'pour que le mail soit visible


End sub

--


Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:
u$#
bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec comme
paramêtres prés établis l'adresse du destinataire et l'objet afin que
celui

qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.






Avatar
Philou
Merci pour ton code mais, justement je ne sais pas quel sera le logiciel
installé sur le micro. donc il me faudrait quelque chose de généraliste si
ça peut éxister sur Excel.
du genre sendmail qui ouvre outlook ou outlookexpress ou netscape....etc
cordialement,


"GVentre" a écrit dans le message de news:
#
Bonjour Philou,

Si le logiciel de messagerie est outlook:

Sub SendMail()

Dim Ol As Object

Dim Email As Object

Dim wd As Object





'***************************************************************

' Création objet Application Outlook

'***************************************************************

Set Ol = CreateObject("outlook.Application")





'***************************************************************

' Création objet Nouveau message

'***************************************************************

Set Email = Ol.CreateItem(olMailItem)





'***************************************************************

' Liste de diffusion : A

'***************************************************************

Set Recipient = Email.Recipients.Add(";
")





'***************************************************************

' Objet

'***************************************************************

Email.Subject = "Compléter l'objet"





'***************************************************************

' Attachement de la pièce jointe

'***************************************************************

Set Attachment = Email.Attachments

Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du fichier
joint"


'1 signifie en tant que pièce jointe et pas raccourci



'***************************************************************

' Affichage mail

'***************************************************************

Email.Display
'pour que le mail soit visible


End sub

--


Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:
u$#
bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec
comme


paramêtres prés établis l'adresse du destinataire et l'objet afin que
celui

qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.










Avatar
GVentre
Philou,

Navré, une autre solution consiste à saisir un texte dans une cellule
("Mail", par exemple) puis de sélectionner cette cellule et faire le
raccourcis clavier CTRL+K.
La boîte de dialogue "insérer un nouveau lien" apparaît, saisir dans le
champ "adresse" en bas le texte suivant:
mailto:?subject=leSujetDuMail&cc=
et&bcc=&body=CorpsDuTexte


Tout attaché.


Certe ce n'est pas à partir d'un bouton mais je suis sur que tu trouveras le
moyen de combiner ceci avec un bouton.


--



Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:

Merci pour ton code mais, justement je ne sais pas quel sera le logiciel
installé sur le micro. donc il me faudrait quelque chose de généraliste si
ça peut éxister sur Excel.
du genre sendmail qui ouvre outlook ou outlookexpress ou netscape....etc
cordialement,


"GVentre" a écrit dans le message de news:
#
Bonjour Philou,

Si le logiciel de messagerie est outlook:

Sub SendMail()

Dim Ol As Object

Dim Email As Object

Dim wd As Object





'***************************************************************

' Création objet Application Outlook

'***************************************************************

Set Ol = CreateObject("outlook.Application")





'***************************************************************

' Création objet Nouveau message

'***************************************************************

Set Email = Ol.CreateItem(olMailItem)





'***************************************************************

' Liste de diffusion : A

'***************************************************************

Set Recipient = Email.Recipients.Add(";
")





'***************************************************************

' Objet

'***************************************************************

Email.Subject = "Compléter l'objet"





'***************************************************************

' Attachement de la pièce jointe

'***************************************************************

Set Attachment = Email.Attachments

Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du
fichier


joint"


'1 signifie en tant que pièce jointe et pas raccourci



'***************************************************************

' Affichage mail

'***************************************************************

Email.Display
'pour que le mail soit visible


End sub

--


Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:
u$#
bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec
comme


paramêtres prés établis l'adresse du destinataire et l'objet afin que
celui

qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.














Avatar
Philou
Ton idée fonctionne très bien, mais j'aimerais pouvoir lancer cette ligne à
partir d'un module VBA.
Existe-t-il une macro du style run ou éxécute pour pouvoir lancer cette
commande ?
Exemple : run ("mailto:?subject=leSujetDuMail")

@mic Philippe

"GVentre" a écrit dans le message de news:

Philou,

Navré, une autre solution consiste à saisir un texte dans une cellule
("Mail", par exemple) puis de sélectionner cette cellule et faire le
raccourcis clavier CTRL+K.
La boîte de dialogue "insérer un nouveau lien" apparaît, saisir dans le
champ "adresse" en bas le texte suivant:

mailto:?subject=leSujetDuMail&cc=

et&bcc=&body=CorpsDuTexte


Tout attaché.


Certe ce n'est pas à partir d'un bouton mais je suis sur que tu trouveras
le

moyen de combiner ceci avec un bouton.


--



Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:

Merci pour ton code mais, justement je ne sais pas quel sera le logiciel
installé sur le micro. donc il me faudrait quelque chose de généraliste
si


ça peut éxister sur Excel.
du genre sendmail qui ouvre outlook ou outlookexpress ou netscape....etc
cordialement,


"GVentre" a écrit dans le message de news:
#
Bonjour Philou,

Si le logiciel de messagerie est outlook:

Sub SendMail()

Dim Ol As Object

Dim Email As Object

Dim wd As Object





'***************************************************************

' Création objet Application Outlook

'***************************************************************

Set Ol = CreateObject("outlook.Application")





'***************************************************************

' Création objet Nouveau message

'***************************************************************

Set Email = Ol.CreateItem(olMailItem)





'***************************************************************

' Liste de diffusion : A

'***************************************************************

Set Recipient = Email.Recipients.Add(";
")





'***************************************************************

' Objet

'***************************************************************

Email.Subject = "Compléter l'objet"





'***************************************************************

' Attachement de la pièce jointe

'***************************************************************

Set Attachment = Email.Attachments

Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du
fichier


joint"


'1 signifie en tant que pièce jointe et pas raccourci



'***************************************************************

' Affichage mail

'***************************************************************

Email.Display
'pour que le mail soit visible


End sub

--


Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:
u$#
bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec
comme


paramêtres prés établis l'adresse du destinataire et l'objet afin
que




celui
qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.


















Avatar
Frédéric Sigonneau
Bonjour,

Peut-être ce genre de code (attention de ne rien avoir d'important en C1) ?

'=========== Sub Courriel()
With ActiveSheet.Hyperlinks
.Add anchor:=Range("C1"), _
Address:="mailto:?subject=leSujetDuMail"
End With
With Range("C1")
.Hyperlinks(1).Follow
.Clear
End With
End Sub
'===========
FS (pas convaincu)
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://frederic.sigonneau.free.fr
Si votre question sur Excel est urgente, évitez ma bal !

Ton idée fonctionne très bien, mais j'aimerais pouvoir lancer cette ligne à
partir d'un module VBA.
Existe-t-il une macro du style run ou éxécute pour pouvoir lancer cette
commande ?
Exemple : run ("mailto:?subject=leSujetDuMail")

@mic Philippe

"GVentre" a écrit dans le message de news:


Philou,

Navré, une autre solution consiste à saisir un texte dans une cellule
("Mail", par exemple) puis de sélectionner cette cellule et faire le
raccourcis clavier CTRL+K.
La boîte de dialogue "insérer un nouveau lien" apparaît, saisir dans le
champ "adresse" en bas le texte suivant:



mailto:?subject=leSujetDuMail&cc=

et&bcc=&body=CorpsDuTexte


Tout attaché.


Certe ce n'est pas à partir d'un bouton mais je suis sur que tu trouveras


le

moyen de combiner ceci avec un bouton.


--



Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:


Merci pour ton code mais, justement je ne sais pas quel sera le logiciel
installé sur le micro. donc il me faudrait quelque chose de généraliste



si

ça peut éxister sur Excel.
du genre sendmail qui ouvre outlook ou outlookexpress ou netscape....etc
cordialement,


"GVentre" a écrit dans le message de news:
#

Bonjour Philou,

Si le logiciel de messagerie est outlook:

Sub SendMail()

Dim Ol As Object

Dim Email As Object

Dim wd As Object





'***************************************************************

' Création objet Application Outlook

'***************************************************************

Set Ol = CreateObject("outlook.Application")





'***************************************************************

' Création objet Nouveau message

'***************************************************************

Set Email = Ol.CreateItem(olMailItem)





'***************************************************************

' Liste de diffusion : A

'***************************************************************

Set Recipient = Email.Recipients.Add(";
")





'***************************************************************

' Objet

'***************************************************************

Email.Subject = "Compléter l'objet"





'***************************************************************

' Attachement de la pièce jointe

'***************************************************************

Set Attachment = Email.Attachments

Attachment.Add "c:windowssystem32calc.exe", 1, 500, "Nom du



fichier

joint"


'1 signifie en tant que pièce jointe et pas raccourci



'***************************************************************

' Affichage mail

'***************************************************************

Email.Display
'pour que le mail soit visible


End sub

--


Codrialement,

Guillaume VENTRE
"Philou" a écrit dans le message de news:
u$#

bonjour,

j'aimerais à l'aide de VBA obtenir l'effet suivant.

Suite au click sur un bouton ou menu, pourvoir ouvrir le logiciel de
messagerie installé par défaut sur l'ordi, pour écrire un mail avec



comme

paramêtres prés établis l'adresse du destinataire et l'objet afin





que

celui

qui fait cette action n'ai plus qu'à inscrire le corps du sujet.

Le mail ne doit donc pas être envoyé automatiquement.