Envoi mail à partir feuille Excel 2003
Résolu
jean300
Messages postés
374
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Auriez-vous un modèle pour envoyer un mail à destinataires multiple via une feuille Excel svp.
E vous remerciant.
Auriez-vous un modèle pour envoyer un mail à destinataires multiple via une feuille Excel svp.
E vous remerciant.
A voir également:
- Envoi mail à partir feuille Excel 2003
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Word et excel gratuit - Guide
- Programmer envoi mail gmail - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
77 réponses
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.
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.
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
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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.
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
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.
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
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
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
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
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
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.
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
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.
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
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.
Pas marche chez moi, toujours probleme serveur smtp. Si marche chez vous, je regarde pour completer votre envoi avec ce que vous auriez besoin.