Envoi mail à partir feuille Excel 2003
Résolu/Fermé
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
-
25 sept. 2017 à 10:13
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 8 févr. 2018 à 15:45
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 8 févr. 2018 à 15:45
A voir également:
- Envoi mail à partir feuille Excel 2003
- Liste déroulante excel - Guide
- Yahoo mail - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Formule excel - Guide
77 réponses
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
8 oct. 2017 à 16:59
8 oct. 2017 à 16:59
Re,
Je remet le fichier : https://www.cjoint.com/c/GJio6J4lECO
Regarde le Module : Envoi_Mail_Sans_Outloock
En apparence c'est OK, mais ne fait pas tout ce que je voudrai.
Je remet le fichier : https://www.cjoint.com/c/GJio6J4lECO
Regarde le Module : Envoi_Mail_Sans_Outloock
En apparence c'est OK, mais ne fait pas tout ce que je voudrai.
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
10 oct. 2017 à 13:55
10 oct. 2017 à 13:55
Re,
Ne va pas trop vite, je suis en train de reprendre l'ensemble du processus.
En te remerciant et te souhaitant une bonne semaine.
ps : je vais faire un petit séjour à l'hosto.
Ne va pas trop vite, je suis en train de reprendre l'ensemble du processus.
En te remerciant et te souhaitant une bonne semaine.
ps : je vais faire un petit séjour à l'hosto.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
10 oct. 2017 à 14:56
10 oct. 2017 à 14:56
Bonjour,
Ok, je vous attends. Pas trop grave j'espere pour l'hosto??
Ok, je vous attends. Pas trop grave j'espere pour l'hosto??
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
14 oct. 2017 à 15:11
14 oct. 2017 à 15:11
Re,
La vache, ils m'ont gardé trois jours à faire des examens pour apprendre au final que mon rein droit va être retiré.
Hospitalisation prévue le 21/11 pour environ 3 semaines un mois.
Mais bon, je ne dois pas être le premier à qui cela arrive.
Je remet le fichier dont j'ai supprimé tous les codes sauf ceux concernant ma demande.
En te remerciant de tout mon cœur pour le travail que je te donne.
Je te souhaite un bon week-end.
http://www.cjoint.com/c/GJoniDnMXvO
La vache, ils m'ont gardé trois jours à faire des examens pour apprendre au final que mon rein droit va être retiré.
Hospitalisation prévue le 21/11 pour environ 3 semaines un mois.
Mais bon, je ne dois pas être le premier à qui cela arrive.
Je remet le fichier dont j'ai supprimé tous les codes sauf ceux concernant ma demande.
En te remerciant de tout mon cœur pour le travail que je te donne.
Je te souhaite un bon week-end.
http://www.cjoint.com/c/GJoniDnMXvO
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
14 oct. 2017 à 15:32
14 oct. 2017 à 15:32
Bonjour,
Hospitalisation prévue le 21/11 pour environ 3 semaines un mois.
Desole pour ces tracasseries, mais si mieux apres c'est preferable.
Je recupere et regarde ce qu'il y a a faire
Hospitalisation prévue le 21/11 pour environ 3 semaines un mois.
Desole pour ces tracasseries, mais si mieux apres c'est preferable.
Je recupere et regarde ce qu'il y a a faire
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
14 oct. 2017 à 17:35
14 oct. 2017 à 17:35
Re,
Bizarre ma réponse d'aujourd'hui est absente.
Je te remets le fichier :
http://www.cjoint.com/c/GJopIxHv7LO
En te remerciant.
Bizarre ma réponse d'aujourd'hui est absente.
Je te remets le fichier :
http://www.cjoint.com/c/GJopIxHv7LO
En te remerciant.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
14 oct. 2017 à 17:58
14 oct. 2017 à 17:58
Re,
moi, je vois votre post: jean300 14 oct. 2017 à 15:11
moi, je vois votre post: jean300 14 oct. 2017 à 15:11
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
14 oct. 2017 à 19:28
14 oct. 2017 à 19:28
Re,
C'est moi qui patauge, pas vu la page 2
Bonne soirée.
C'est moi qui patauge, pas vu la page 2
Bonne soirée.
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
16 oct. 2017 à 14:21
16 oct. 2017 à 14:21
Bonjour f894009,
Comment va-tu ?
Ne regrette-tu pas de t'être proposé à m'aider ?
Je viens de voir un nouvel exemple de mail qu'il faudrait adapter à mon cas.
Pourrais-tu le faire ?
Si oui, il faudrait supprimer la feuille Mail
Si oui, je pense qu'il faudrait supprimer ce fil qui n'apporte rien pour ceux qui le regarderait...
Cordialement.
Avec mes remerciements.
Jean
l'exemple :
http://www.cjoint.com/c/GJqmrZteILO
mon fichier :
https://www.cjoint.com/c/GJqmue4SugO
Comment va-tu ?
Ne regrette-tu pas de t'être proposé à m'aider ?
Je viens de voir un nouvel exemple de mail qu'il faudrait adapter à mon cas.
Pourrais-tu le faire ?
Si oui, il faudrait supprimer la feuille Mail
Si oui, je pense qu'il faudrait supprimer ce fil qui n'apporte rien pour ceux qui le regarderait...
Cordialement.
Avec mes remerciements.
Jean
l'exemple :
http://www.cjoint.com/c/GJqmrZteILO
mon fichier :
https://www.cjoint.com/c/GJqmue4SugO
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
16 oct. 2017 à 16:44
16 oct. 2017 à 16:44
Bonjour,
Ne regrette-tu pas de t'être proposé à m'aider ?
Non, y a pas d'lezard.
je recupere le baigneur
A+
Ne regrette-tu pas de t'être proposé à m'aider ?
Non, y a pas d'lezard.
je recupere le baigneur
A+
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
19 oct. 2017 à 15:36
19 oct. 2017 à 15:36
Bonjour,
Dans votre ficher, vous avez x procedures d'envoi @Mail CDO et Outlook, je choisi ce que je veux?
Dans votre ficher, vous avez x procedures d'envoi @Mail CDO et Outlook, je choisi ce que je veux?
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
19 oct. 2017 à 16:35
19 oct. 2017 à 16:35
Bonjour f894009,
Fais comme tu le sent.
Pour le type de mail, privilégie :
- via CDO ----> prioritaire car il n'y a pas Outlook sur tous les PC.
Un point qui me parait important est qu'il n'y aura pas toujours un fichier joint. Peux-tu faire pour qu'il y ait un genre "inputbox" pour traiter ceci.
En te remerciant infiniment.
Fais comme tu le sent.
Pour le type de mail, privilégie :
- via CDO ----> prioritaire car il n'y a pas Outlook sur tous les PC.
Un point qui me parait important est qu'il n'y aura pas toujours un fichier joint. Peux-tu faire pour qu'il y ait un genre "inputbox" pour traiter ceci.
En te remerciant infiniment.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
19 oct. 2017 à 17:04
19 oct. 2017 à 17:04
Re,
Ok
Ok
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
Modifié le 26 oct. 2017 à 10:48
Modifié le 26 oct. 2017 à 10:48
Bonjour,
fichier modifie pour envoi avec Outlook: https://www.cjoint.com/c/GJAig3stD7f
Je fais la partie CDO ensuite
fichier pour cdo et repris avec outlook: https://www.cjoint.com/c/GJAiUBPWIKf
il vous faudra reprendre la liste de validation pour piece-jointe en L3 car avec excel 2013 et enreg en xls car coince
fichier modifie pour envoi avec Outlook: https://www.cjoint.com/c/GJAig3stD7f
Je fais la partie CDO ensuite
fichier pour cdo et repris avec outlook: https://www.cjoint.com/c/GJAiUBPWIKf
il vous faudra reprendre la liste de validation pour piece-jointe en L3 car avec excel 2013 et enreg en xls car coince
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
15 nov. 2017 à 13:34
15 nov. 2017 à 13:34
Bonjour f894009,
Désolé de ne pas avoir répondu plus tôt, hospitalisé en urgence et intervention.
De retour à la maison je reprend le fil la semaine prochaine si tu es d'accord.
En te remerciant.
Désolé de ne pas avoir répondu plus tôt, hospitalisé en urgence et intervention.
De retour à la maison je reprend le fil la semaine prochaine si tu es d'accord.
En te remerciant.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
15 nov. 2017 à 14:00
15 nov. 2017 à 14:00
Bonjour,
Y a pas d'lezard, remettez vous de vos emotions et a la semaine prochaine
Y a pas d'lezard, remettez vous de vos emotions et a la semaine prochaine
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
20 nov. 2017 à 13:20
20 nov. 2017 à 13:20
Bonjour f894009
J'ai juste repris ton dernier fichier avec les modifs souhaitées.
En te remerciant de tout cœur pour ton travail et ton assiduité.
Je met le fichier :
http://www.cjoint.com/c/GKumsEHdNEP
J'ai juste repris ton dernier fichier avec les modifs souhaitées.
En te remerciant de tout cœur pour ton travail et ton assiduité.
Je met le fichier :
http://www.cjoint.com/c/GKumsEHdNEP
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié le 20 nov. 2017 à 14:12
Modifié le 20 nov. 2017 à 14:12
Bonjour,
Je recupere le fichier
A+
Suite:
Pour la Piece-jointe, il serait plus judicieux de faire la recherche des qu'il y a oui dans M2 et mettre le lien du fichier choisi dans M3
Je recupere le fichier
A+
Suite:
Pour la Piece-jointe, il serait plus judicieux de faire la recherche des qu'il y a oui dans M2 et mettre le lien du fichier choisi dans M3
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
20 nov. 2017 à 15:39
20 nov. 2017 à 15:39
Re,
fichier modifie: M2 passe a non et M3="" si envoi precedent etait a oui
http://www.cjoint.com/c/GKuoL0jSBFf
fichier modifie: M2 passe a non et M3="" si envoi precedent etait a oui
http://www.cjoint.com/c/GKuoL0jSBFf
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
Modifié le 21 nov. 2017 à 13:48
Modifié le 21 nov. 2017 à 13:48
Bonjour f894009,
Je vois que tu avance bien et je suis d'accord avec ta remarque au sujet de la PJ.
De toute façon tu connais beaucoup plus que moi.
Je te remets le fichier avec mes remarques.
Il y a un problème ici :
Private Sub CmdEnvoiGmail_Click() ' OK
ExportDestDuMail 'Sélection adresses mail pour envoi mail
EnvoiMailGoogle
Range("M3") = ""
Range("M2") = "Non"
End Sub
En te remerciant.
http://www.cjoint.com/c/GKvmLWzKPhP
Je vois que tu avance bien et je suis d'accord avec ta remarque au sujet de la PJ.
De toute façon tu connais beaucoup plus que moi.
Je te remets le fichier avec mes remarques.
Il y a un problème ici :
Private Sub CmdEnvoiGmail_Click() ' OK
ExportDestDuMail 'Sélection adresses mail pour envoi mail
EnvoiMailGoogle
Range("M3") = ""
Range("M2") = "Non"
End Sub
En te remerciant.
http://www.cjoint.com/c/GKvmLWzKPhP
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
21 nov. 2017 à 14:43
21 nov. 2017 à 14:43
Bonjour,
Smtp L2, pour cdo deja fait dans le code!!!!!!!!
ExportDestDuMail: cette procedure n'est plus dans le VBA du fichier
Smtp L2, pour cdo deja fait dans le code!!!!!!!!
ExportDestDuMail: cette procedure n'est plus dans le VBA du fichier
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
21 nov. 2017 à 15:00
21 nov. 2017 à 15:00
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
22 nov. 2017 à 08:54
22 nov. 2017 à 08:54
Bonjour f894009,
Suite passage infirmière et après réflexion, pourrais-tu supprimer les codes "mail" inutiles.
Pour la zone de texte du corps du message j'ai trouvé ceci :
Public Sub LoadMsgHTMLBody(Seul$)
' extrait la zone texte et création du MsgHTMLBody
NbrDeCar = Sheets(NomDeLaFeuilMENU$).Shapes("ZoneTexteMessage").TextFrame.Characters.Count
MsgHTMLBody = "": Msg$ = ""
If NbrDeCar <= 255 Then
Msg$ = Sheets(NomDeLaFeuilMENU$).Shapes("ZoneTexteMessage").TextFrame.Characters.Text
' correction à faire ? :
Msg$ = Sheets(NomDeLaFeuilMail$).Shapes("Text Box 65").TextFrame.Characters.Text
Else
For Debut = 1 To NbrDeCar Step 255
Msg$ = Msg$ & Sheets(NomDeLaFeuilMail$).Shapes("Text Box 65").TextFrame.Characters(Debut, 255).Caption
Next
End If
If Msg$ > "" Then
Dim TabloMsg As Variant
TabloMsg = Split(Msg$, Chr(10))
MsgHTMLBody = DebMsgHTML
For I = LBound(TabloMsg) To UBound(TabloMsg)
MsgHTMLBody = MsgHTMLBody & TabloMsg(I) & RetLigHTML
Next
If Seul$ > "" Then MsgHTMLBody = MsgHTMLBody & FinMsgHTML Else MsgHTMLBody = MsgHTMLBody & RetLigHTML
Msg$ = ""
End If
End Sub
Est-ce que cela peut marcher ?
Pour la zone de texte "Text Box 65" peut-on la renommer "CorpsMessage"
En te souhaitant bon courage et une bonne journée.
Avec mes remerciements.
Suite passage infirmière et après réflexion, pourrais-tu supprimer les codes "mail" inutiles.
Pour la zone de texte du corps du message j'ai trouvé ceci :
Public Sub LoadMsgHTMLBody(Seul$)
' extrait la zone texte et création du MsgHTMLBody
NbrDeCar = Sheets(NomDeLaFeuilMENU$).Shapes("ZoneTexteMessage").TextFrame.Characters.Count
MsgHTMLBody = "": Msg$ = ""
If NbrDeCar <= 255 Then
Msg$ = Sheets(NomDeLaFeuilMENU$).Shapes("ZoneTexteMessage").TextFrame.Characters.Text
' correction à faire ? :
Msg$ = Sheets(NomDeLaFeuilMail$).Shapes("Text Box 65").TextFrame.Characters.Text
Else
For Debut = 1 To NbrDeCar Step 255
Msg$ = Msg$ & Sheets(NomDeLaFeuilMail$).Shapes("Text Box 65").TextFrame.Characters(Debut, 255).Caption
Next
End If
If Msg$ > "" Then
Dim TabloMsg As Variant
TabloMsg = Split(Msg$, Chr(10))
MsgHTMLBody = DebMsgHTML
For I = LBound(TabloMsg) To UBound(TabloMsg)
MsgHTMLBody = MsgHTMLBody & TabloMsg(I) & RetLigHTML
Next
If Seul$ > "" Then MsgHTMLBody = MsgHTMLBody & FinMsgHTML Else MsgHTMLBody = MsgHTMLBody & RetLigHTML
Msg$ = ""
End If
End Sub
Est-ce que cela peut marcher ?
Pour la zone de texte "Text Box 65" peut-on la renommer "CorpsMessage"
En te souhaitant bon courage et une bonne journée.
Avec mes remerciements.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
22 nov. 2017 à 10:35
22 nov. 2017 à 10:35
Bonjour,
Est-ce que cela peut marcher ?
Dans le fichier que je vous ai remis hier, c'est deja fait en plus simple ....!!!!
les codes "mail" inutiles.
Ok, je fais
peut-on la renommer "CorpsMessage"
Oui, je l'avais en TextMessage a votre demande....
Est-ce que cela peut marcher ?
Dans le fichier que je vous ai remis hier, c'est deja fait en plus simple ....!!!!
les codes "mail" inutiles.
Ok, je fais
peut-on la renommer "CorpsMessage"
Oui, je l'avais en TextMessage a votre demande....
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
22 nov. 2017 à 13:50
22 nov. 2017 à 13:50
Re,
Fichier épuré: https://www.cjoint.com/c/GKwmX1qPIgf
Fichier épuré: https://www.cjoint.com/c/GKwmX1qPIgf
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
24 nov. 2017 à 09:21
24 nov. 2017 à 09:21
Bonjour f894009,
Voici le fichier en retour avec mes observations.
En te remerciant.
http://www.cjoint.com/c/GKyiuVjpyCP
Voici le fichier en retour avec mes observations.
En te remerciant.
http://www.cjoint.com/c/GKyiuVjpyCP
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
24 nov. 2017 à 10:09
24 nov. 2017 à 10:09
Bonjour,
Comment va aujourd'hui ???
Je recupere le baigneur
Comment va aujourd'hui ???
Je recupere le baigneur
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
25 nov. 2017 à 10:22
25 nov. 2017 à 10:22
Bonjour f894009,
Je suis un peu ko aujourd'hui pas facile de se retrouver avec un rein en moins, prostate et vessie en moins, moitié colon et intestin en moins, 2 sondes qui sortent du ventre avec 2 poches sur le ventre, comme tu vois c'est réjouissant...
Peux-tu me répondre en utilisant le dernier fichier que j'ai mis.
En te remerciant et te souhaitant un bon Week-end.
Je suis un peu ko aujourd'hui pas facile de se retrouver avec un rein en moins, prostate et vessie en moins, moitié colon et intestin en moins, 2 sondes qui sortent du ventre avec 2 poches sur le ventre, comme tu vois c'est réjouissant...
Peux-tu me répondre en utilisant le dernier fichier que j'ai mis.
En te remerciant et te souhaitant un bon Week-end.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
25 nov. 2017 à 10:34
25 nov. 2017 à 10:34
Bonjour,
Fichier modifie pour password. Pour l'envoi Outlook, je n'ai pas votre soucis (voir image)
https://www.cjoint.com/c/GKzjHTMMjZf
Fichier modifie pour password. Pour l'envoi Outlook, je n'ai pas votre soucis (voir image)
https://www.cjoint.com/c/GKzjHTMMjZf
jean300
Messages postés
374
Date d'inscription
jeudi 11 août 2016
Statut
Membre
Dernière intervention
13 janvier 2020
14
25 nov. 2017 à 15:07
25 nov. 2017 à 15:07
Bonjour f894009
- Il faudrait effacer M3 après l'envoi.
- Est-on obligé de cliquer sur Envoyer pour que le mail parte ? Outlook
- Outloock, le mail part apparemment mais n'arrive pas.
- Gmail : rien ne se passe.
- Un message "Patientez" serait-il nécessaire après avoir cliquer sur les boutons Envoyer de la feuille Mail ?
Avec mes remerciements.
- Il faudrait effacer M3 après l'envoi.
- Est-on obligé de cliquer sur Envoyer pour que le mail parte ? Outlook
- Outloock, le mail part apparemment mais n'arrive pas.
- Gmail : rien ne se passe.
- Un message "Patientez" serait-il nécessaire après avoir cliquer sur les boutons Envoyer de la feuille Mail ?
Avec mes remerciements.
Modifié le 9 oct. 2017 à 07:10
Pas marche chez moi, toujours probleme serveur smtp. Si marche chez vous, je regarde pour completer votre envoi avec ce que vous auriez besoin.