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 envoyer un mail en cliquant sur un bouton

envoyer un mail en cliquant sur un bouton

9 réponses
Avatar
on geza gatame
Bonjour

Tout est dit
pas de piece jointe seulement un texte du genre : document modifié
attention....
l'adresse mail peux etre dans une case ou directement dans la macro..

merci de votre aide

ps : en evitant d'utiliser un logiciel de messagerie dejà sur le poste, afin
de s'affranchir des evolutions de version que je ne maitrise pas
Signaler un problème avec ce contenu

9 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
Francois
Bonjour

Tout est dit
pas de piece jointe seulement un texte du genre : document modifié
attention....
l'adresse mail peux etre dans une case ou directement dans la macro..

merci de votre aide

ps : en evitant d'utiliser un logiciel de messagerie dejà sur le poste, afin
de s'affranchir des evolutions de version que je ne maitrise pas




Bonsoir,

Modeste, ce jour même a indiqué la chose suivante :
<citation>
La bible dans ce domaine ;o)))
toutes les solutions là :
http://www.rondebruin.nl/sendmail.htm
</citation>

Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
là je pense qu'il y a une invention à breveter immédiatement.

--
François L

Avatar
michdenis
Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec CDO... et elles ne requièrent pas un service de messagerie
particulier.


Salutations!




"Francois" a écrit dans le message de news:
Bonjour

Tout est dit
pas de piece jointe seulement un texte du genre : document modifié
attention....
l'adresse mail peux etre dans une case ou directement dans la macro..

merci de votre aide

ps : en evitant d'utiliser un logiciel de messagerie dejà sur le poste, afin
de s'affranchir des evolutions de version que je ne maitrise pas




Bonsoir,

Modeste, ce jour même a indiqué la chose suivante :
<citation>
La bible dans ce domaine ;o)))
toutes les solutions là :
http://www.rondebruin.nl/sendmail.htm
</citation>

Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
là je pense qu'il y a une invention à breveter immédiatement.

--
François L

Avatar
Francois
Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec CDO... et elles ne requièrent pas un service de messagerie
particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,

--
François L

Avatar
ThierryP
Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =
"ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =
"ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =
25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp

Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,



--
@+ thierryp


Avatar
on geza gatame
MERCI

mais a quoi correspond
http://schemas.microsoft.com/cdo/configuration/smtpserver
et la suite
je suis en reseau local intranet, et je n'ai pas acces au web !!!
il y a bien sur une messagerie interne baseé sur xchange, mais pas de web
!!!

nous avons bien un serveur smtp (interne) car blat fonctionne bien...

merci


"ThierryP" a écrit dans le message de
news:
Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > "ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > "ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") > 25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp

Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie
alors



| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,



--
@+ thierryp




Avatar
ThierryP
Alors là...Cà devient un peu fort pour moi !!
Si ton PC n'a pas d'accès Web direct, aucune chance effectivement.
De la même manière, on doit pouvoir piloter Exchange, mais là je cale
complètement.

Bonne chance !!

@+ thierryp

MERCI

mais a quoi correspond
http://schemas.microsoft.com/cdo/configuration/smtpserver
et la suite
je suis en reseau local intranet, et je n'ai pas acces au web !!!
il y a bien sur une messagerie interne baseé sur xchange, mais pas de web
!!!

nous avons bien un serveur smtp (interne) car blat fonctionne bien...

merci


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

Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") >>"ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") >>"ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") >>25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp



Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie




alors

| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,



--
@+ thierryp






--
@+ thierryp




Avatar
on geza gatame
MERCI
Bonne journee

"ThierryP" a écrit dans le message de
news: u#
Alors là...Cà devient un peu fort pour moi !!
Si ton PC n'a pas d'accès Web direct, aucune chance effectivement.
De la même manière, on doit pouvoir piloter Exchange, mais là je cale
complètement.

Bonne chance !!

@+ thierryp

MERCI

mais a quoi correspond
http://schemas.microsoft.com/cdo/configuration/smtpserver
et la suite
je suis en reseau local intranet, et je n'ai pas acces au web !!!
il y a bien sur une messagerie interne baseé sur xchange, mais pas de
web


!!!

nous avons bien un serveur smtp (interne) car blat fonctionne bien...

merci


"ThierryP" a écrit dans le message
de


news:

Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > >>"ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > >>"ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") > >>25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp



Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie




alors

| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie
particulier.









Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,



--
@+ thierryp






--
@+ thierryp






Avatar
michdenis
Bonjour Thierry,

L'exemple que tu donnes fait référence au SMTP (small mail transfert protocol) de la configuration du service de messagerie déjà
installé sur ton ordi.

L'exemple qui est totalement indépendant du service de messagerie présent sur ton ordi. De plus, il ne laisse aucune trace
(sauvegarde dans un répertoire des messages envoyés). Pour pouvoir utiliser cette procédure, on doit avoir au moins Windows 2000 ou
xp..

Cette procédure fut publiée par Laurent Longre. On retrouve l'équivalent sur le site internet mentionné dans ce fil.

'-----------------------
Private Sub CommandButton1_Click() ' De LL

With CreateObject("CDO.Message")
.From = ""
.To = ""
.CC = ""
.BCC = ""
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With

End Sub
'-----------------------


Salutations!






"ThierryP" a écrit dans le message de news:
Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") "ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") "ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") 25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp

Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,



--
@+ thierryp


Avatar
ThierryP
Voilà ce que c'est de vouloir faire son malin à la place des pros :-))))
Bon, il y avait quand même une partie de bon dans mon fatras....

@+ thierryp

Bonjour Thierry,

L'exemple que tu donnes fait référence au SMTP (small mail transfert protocol) de la configuration du service de messagerie déjà
installé sur ton ordi.

L'exemple qui est totalement indépendant du service de messagerie présent sur ton ordi. De plus, il ne laisse aucune trace
(sauvegarde dans un répertoire des messages envoyés). Pour pouvoir utiliser cette procédure, on doit avoir au moins Windows 2000 ou
xp..

Cette procédure fut publiée par Laurent Longre. On retrouve l'équivalent sur le site internet mentionné dans ce fil.

'-----------------------
Private Sub CommandButton1_Click() ' De LL

With CreateObject("CDO.Message")
.From = ""
.To = ""
.CC = ""
.BCC = ""
.Subject = "MySubject"
.TextBody = "MyMessage"
.AddAttachment "C:MyDirMyFile.xls"
.Send
End With

End Sub
'-----------------------


Salutations!






"ThierryP" a écrit dans le message de news:
Bonjour François

Ci-dessous une petite proc qui envoie un mail sans client de messagerie.
A adapter à tes besoins !!

Sub EnvoiMail()
Dim iMsg As Object, iConf As Object, WBname, NumCde As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1
Set Flds = iConf.Fields
' Renseigner ci-dessous avec le smtp de l'utilisateur
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "ton_serveur_smtp"

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") > "ton_identitiant_messagerie"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") > "ton_mot_de_passe"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") > 25 ' Port serveur smtp
.Update
End With
ActiveWorkbook.SaveCopyAs "C:Commande.xls" 'Si tu veux envoyer une
feuille par mail en pj
strbody = "Bonjour " & vbNewLine & vbNewLine & _
"Veuillez trouver ci-joint ma commande " & NumCde &
vbNewLine & _
"Merci de me confirmer prix et délais par retour" &
vbNewLine & _
"En l'attente," & vbNewLine & "Meilleures salutations"
With iMsg
Set .Configuration = iConf
.To = Range("B15").Value
.CC = ""
.BCC = ""
.From = """Thierry"" <ton_adresse_de_messagerie>"
.Subject = "Commande"
.TextBody = strbody
.AddAttachment "C:Commande.xls" ' Si tu veux une pièce jointe
.Fields.Update
.Send
End With
ActiveWorkbook.Close
Kill "C:Commande.xls" ' Si tu as créé le fichier plus haut
Set iMsg = Nothing
Set iConf = Nothing
Application.ScreenUpdating = True
End Sub

Testé chez moi avec W2K SP4 + Office2002

@+ thierryp



Bonjour François,

| Quand à envoyer un mail sans recourir à un logiciel de messagerie alors
| là je pense qu'il y a une invention à breveter immédiatement.

Sur le site que tu as référencé, il y a quelques procédures avec
CDO... et elles ne requièrent pas un service de messagerie particulier.




Bonjour,

Oui mais ça c'est trop fort pour moi !

Cordialement,






--
@+ thierryp