Envoi mail à partir feuille Excel 2003 Résolu/Fermé

Question

Bonjour, 
Auriez-vous un modèle pour envoyer un mail à destinataires multiple via une feuille Excel svp.
E vous remerciant.


Configuration: Windows / Firefox 55.0

f894009 · Answer

Bonjour,

a voir:

https://www.rondebruin.nl/win/s1/outlook/mail.htm

jean300 · Answer

Bonjour f894009,
N'aurais-tu le lien en français stp ?
En te remerciant.

jean300 · Answer

Je te remercie f894009
Bonne journée à toi
Je reviendrais si problème si tu me le permet

jean300 · Answer

Bonjour cher ami(s)
Après avoir remanier mon projet de fond en comble, je ne m'en sors pas au sujet de l'envoi de mail.
J'espère que les quelques notations mises vous aideront à mieux cerner ma demande.
Le fichier :
https://www.cjoint.com/c/GJdl5C3DRHO

jean300 · Answer

Re
Je viens d'y aller. 
Merci pour ce rappel, sympa de ta part.

jean300 · Answer

Bonjour f894009,
Heureux de te retrouver, merci beaucoup, j'apprécie hautement ton aide (si je peux appeler cela de l'aide) car tu vas faire tout le travail .
Pour simplifier, les deux types seront de mise, car le directeur à Outlook mais la secrétaire et ce sont ces deux seules personnes qui envoient les mails.
C'est vraiment pas simple. (peut être faudra-t-il 2 boutons)
- envoi via Outloock
- envoi via cdo

jean300 · Answer

Re,
Elle a sur son ordi Office 2003
et sur un autre Office 2013

jean300 · Answer

Re,
Sur l'ordi office 2003 il n'y a pas Outloock.
En faite elle a Word, Excel et Powerpoint.

jean300 · Answer

Bonjour f894009,
Je te remercie pour le travail effectué.
J'ai fais l'essaie que tu m'a demandé, j'ai eu un bug à cet endroit et j'ai mis une ' devant Send pour pouvoir continuer :
        'Pour ajouter une pièce jointe, un fichier, classeur, image etc.        '.AddAttachment 'Chemin et nom complet du fichier à joindre'        .Send
    End With
    Set mMessage = Nothing

Mais rien n'est arrivé dans ma boîte mail.

jean300 · Answer

Pas de souci mon ami, j'ai tout mon temps.

jean300 · Answer

Bonsoir Est-ce que ceci peut t'aider ? Sub test() MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", "" End Sub Public Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj) ' sub pour envoyer les mails Dim msg Dim Conf Dim Config Dim ess Dim splitPj Dim IsplitPj Set msg = CreateObject("CDO.Message") 'pour la configuration du message Set Conf = CreateObject("CDO.Configuration") ' pour la configuration de l'envoi Dim strHTML Set Config = Conf.Fields ' Configuration des parametres d'envoi '(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie) With Config If Identify = True Then .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord End If .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay .Update End With 'Configuration du message 'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1 With msg Set .Configuration = Conf .To = Dest .cc = DestEnCopy .FROM = Expediteur .Subject = Objet ' .HTMLBody = Body '"

" & body & " " 'E_mail.ZThtml.Text If Pj <> "" Then splitPj = Split(Pj & ";", ";") For IsplitPj = 0 To UBound(splitPj) If Trim("" & splitPj(IsplitPj)) <> "" Then .AddAttachment Trim("" & splitPj(IsplitPj)) doevents End If Next End If .Send 'envoi du message doevents End With ' reinitialisation des variables Set msg = Nothing Set Conf = Nothing Set Config = Nothing End Sub

jean300 · Answer

Bonjour f894009,
Est-ce que ceci peut t'aider ?

http://www.smtp-gmail.com/

https://www.serversmtp.com/fr/configuration-smtp-gmail/

https://clients.desmondes.com/knowledgebase/392/SMTP-Gmail.html

En te souhaitant une bonne journée.

jean300 · Answer

Je t'en donne des soucis, désolé et merci pour tout ton travail.
Je te souhaite une bonne journée.
ps : je ne suis pas pressé.

jean300 · Answer

Re,
Hélas non car ils n'ont plus le CD et le directeur ne veut pas prêter son office 2013.
Mais le problème ne viendrait-il pas d'ici :
User.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWord

jean300 · Answer

Re,
As-tu vu ceci ?

https://www.developpez.net/forums/d1469590/logiciels/microsoft-office/excel/macros-vba-excel/composant-activex-ne-creer-objet/#post7968025

Ne comprenant pas l'anglais, pas facile pour moi.

jean300 · Answer

Re, J'ai trouvé ceci : Sub EnvoiMailCDO()'MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", "" MailEnvoi [E8].Value, [E14].Value <> "non", [E6].Value, [E16].Value, [E12].Value, 10, [E6].Value, [k6].Value, "", [K8].Value, [K10].Value, "" ' pour les pièce jointes "c:\Fichier1;c:\Fichier2;"'MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)End SubPublic Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)' sub pour envoyer les mailsDim msgDim ConfDim ConfigDim essDim splitPjDim IsplitPjSet msg = CreateObject("CDO.Message") 'pour la configuration du messageSet Conf = CreateObject("CDO.Configuration") ' pour la configuration de l'envoiDim strHTML Set Config = Conf.Fields ' Configuration des parametres d'envoi'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)With ConfigIf Identify = True Then .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWordEnd If .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay .UpdateEnd With'Configuration du message'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1 With msg Set .Configuration = Conf .To = Dest .cc = DestEnCopy .FROM = Expediteur .Subject = Objet ' .HTMLBody = Body '"

" & body & " " 'E_mail.ZThtml.Text If Pj <> "" Then splitPj = Split(Pj & ";", ";") For IsplitPj = 0 To UBound(splitPj) If Trim("" & splitPj(IsplitPj)) <> "" Then .AddAttachment Trim("" & splitPj(IsplitPj)) End If Next End If .Send 'envoi du messageEnd With' reinitialisation des variablesSet msg = NothingSet Conf = NothingSet Config = NothingEnd Sub

jean300 · Answer

Re,
J'ai essayer bloc à .Send 'envoi du message
Je pense que c'est parce que il n'y a pas de message.
Ne pipant pas un mot d'anglais, pas facile pour moi.

jean300 · Answer

Bonjour mon ami,
.Send se surligne en jaune

jean300 · Answer

Re, Le seul code qui va jusqu'au bout sans bug, mais pas de message reçu. Sub EnvoiMailCDO2() ' Pas de problème mais pas de mail reçu'MailEnvoi "smtp.googlemail.com", True, "My.Mail@gmail.com", "Pasw", 465, 10, "My.Mail@gmail.com", "Vous.Mail@gmail.com", "Copy@gmail.com", "Suivi des modifications.", "tel truc a été modifile", "" MailEnvoi [E8].Value, [E14].Value <> "non", [E6].Value, [E16].Value, [E12].Value, 10, [E6].Value, [k6].Value, "", [K8].Value, [K10].Value, "" ' pour les pièce jointes "c:\Fichier1;c:\Fichier2;"'MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)End SubPublic Sub MailEnvoi(Serveur, Identify, User, PassWord, Port, Delay, Expediteur, Dest, DestEnCopy, Objet, Body, Pj)' sub pour envoyer les mailsDim msgDim ConfDim ConfigDim essDim splitPjDim IsplitPjSet msg = CreateObject("CDO.Message") 'pour la configuration du messageSet Conf = CreateObject("CDO.Configuration") ' pour la configuration de l'envoiDim strHTML Set Config = Conf.Fields ' Configuration des parametres d'envoi'(SMTP - Identification - SSL - Password - Nom Utilisateur - Adresse messagerie)With ConfigIf Identify = True Then .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = User .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = PassWordEnd If .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Port .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Serveur .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = Delay .Update End With 'Configuration du message'If E_mail.Sign.Value = Checked Then Convert ServeurFrm.SignTXT, ServeurFrm.Text1 With msg Set .Configuration = Conf .To = Dest .cc = DestEnCopy .FROM = Expediteur .Subject = Objet' .HTMLBody = Body '"

" & body & " " 'E_mail.ZThtml.Text If Pj <> "" Then splitPj = Split(Pj & ";", ";") For IsplitPj = 0 To UBound(splitPj) If Trim("" & splitPj(IsplitPj)) <> "" Then .AddAttachment Trim("" & splitPj(IsplitPj)) End If Next End If' .Send 'envoi du message End With' reinitialisation des variablesSet msg = NothingSet Conf = NothingSet Config = Nothing End Sub

jean300 · Answer

Re,
Je viens de voir ceci, je ne sais si ça pourra t'aider ?
http://www.cjoint.com/c/GJgnMR8e8MO

jean300 · Answer

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.

jean300 · Answer

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.

jean300 · Answer

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

jean300 · Answer

Re,
Bizarre ma réponse d'aujourd'hui est absente.
Je te remets le fichier :
 http://www.cjoint.com/c/GJopIxHv7LO
En te remerciant.

jean300 · Answer

Re,
C'est moi qui patauge, pas vu la page 2

Bonne soirée.

jean300 · Answer

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

jean300 · Answer

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.

jean300 · Answer

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.

jean300 · Answer

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

f894009 · Answer

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

f894009 · Answer

Re,

fichier modifie: M2 passe a non et M3="" si envoi precedent etait a oui 

http://www.cjoint.com/c/GKuoL0jSBFf

jean300 · Answer

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

f894009 · Answer

Bonjour,

Smtp L2, pour cdo deja fait dans le code!!!!!!!!

ExportDestDuMail: cette procedure n'est plus dans le VBA du fichier

jean300 · Answer

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.

f894009 · Answer

Re,

Fichier épuré: https://www.cjoint.com/c/GKwmX1qPIgf

jean300 · Answer

Bonjour f894009,
Voici le fichier en retour avec mes observations.
En te remerciant.
http://www.cjoint.com/c/GKyiuVjpyCP

f894009 · Answer

Bonjour,

Comment va aujourd'hui ???
Je recupere le baigneur

jean300 · Answer

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.

f894009 · Answer

Bonjour,


Fichier modifie pour password. Pour l'envoi Outlook, je n'ai pas votre soucis (voir image)

https://www.cjoint.com/c/GKzjHTMMjZf

jean300 · Answer

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.

f894009 · Answer

Re,

fichier modifie pour raz mot de passe apres envoi CDO, modifie le seprateur adresse "," en ";" et envoi direct Outlook

Ai fait plusieurs essais, Ok, je pense que vous avez recu quelques @Mails

https://www.cjoint.com/c/GKzq67zYeif

Je regarde pour - Un message "Patientez"

f894009 · Answer

Re,

Userform pour attente fin envoi

https://www.cjoint.com/c/GKzrCH6FMTf

jean300 · Answer

Bonjour François,
Pas mal du tout le usf
Après 3 essai envoi, les mails arrivent tronqués le dernier mot étant
murmure. Bizarre

f894009 · Answer

Re,
Message tronqué, ben pas chez moi. .....!
Faites d'autres essais et dites si cela persiste

jean300 · Answer

Re,
J'ai renvoyé 3 fois le mail a des horaires différents et toujours pareil, voici le texte réceptionné par mes enfants et petits enfants :

Quand tu ris, sur ta bouche l'amour s'épanouit,
Et le soupçon farouche soudain s'évanouit !
Ah ! Le rire fidèle prouve un cœur sans détours...
Riez, ma belle, riez toujours !

Quand tu dors, calme et pure, dans l'ombre, sous mes yeux,
Ton haleine murmure

En te souhaitant une bonne soirée.

f894009 · Answer

Bonjour,

Question: quand vous aviez Outlook ouvert avant envoi, le texte etait complet ??

jean300 · Answer

Bonjour,
Non il était tronqué comme indiqué.

f894009 · Answer

Re,

Oui, c'est ce qui me semblait. Ca le fait sur le PC avec Outlook 2013 !!!
Surprenant!!

jean300 · Answer

Re,
Effectivement de quoi cela peut-il provenir ?

f894009 · Answer

Re,
Ben, chez moi, c'est office 2013 donc le meme !!!!
Je cherche

jean300 · Answer

Re,
Ceci peut-il t'aider ?
https://forums.mozfr.org/viewtopic.php?t=113718

f894009 · Answer

Bonjour,

Non, car j'y ai pense a recreer le corps du message en partant du texte de la textbox mais pas moyen de capturer les retour ligne qui sont pourtant la
Je vais reprendre cette piste

jean300 · Answer

Bonjour François,
Mon petit fils propose cette autre façon (sans boucle) de créer tes listes de mails indiqué par un de ses amis.
Qu'en pense-tu ?

Dim List_To As String, List_Cop As String, rng As Range, t, tt
'  UF_Attente.Show vbModeless
'ici je repère la dernière ligne vide pour la Collection des données
'ci- dessous début des lignes modifiées
With Worksheets("Mail")
        Set rng = .Range(.Cells(2, "N"), .Cells(Rows.Count, "N").End(3))
        If rng.Rows.Count > 2 Then
        t = Application.Transpose(rng.Value): List_To = Join(t, ";")
        tt = Application.Transpose(rng.Offset(, 1)): List_Cop = Join(tt, ";")
   'pour tester le contenu des listes de mails
'///////////////////////////////////
'à supprimer une fois que le test est bon
   MsgBox List_To
   MsgBox List_Cop
'///////////////////////////////////
        Else
        MsgBox "Attention: pas de destinataire!!!!"
        Exit Sub
        End If
End With
'fin des lignes modifiées
'    Set OutApp = CreateObject("Outlook.Application")

f894009 · Answer

Bonjour,

Oui, c'est ok

f894009 · Answer

Re,

Desole, mais pas ok pour ce code 
1 prend les entetes de colonne (Cc, CCi )
2 si un seul dest ou en copie erreur car pas de tableau



Suite:

fichier modifie pour triturer le texte de Corpsdemessage pour avoir texte complet. Chez moi pas de probleme avant donc bon, a vous de tester

https://www.cjoint.com/c/GKDqj2Xgj6f

jean300 · Answer

Re,
Pas bon chez moi,
j'ai mis une copie d'écran.

 http://www.cjoint.com/c/GKDuujt5EWq

f894009 · Answer

Bonjour,

Sauf erreur de ma part vous n'utilisez pas office 2013 mais 2007

https://www.cjoint.com/c/GKEhS6JWwkf

Je vais recuperer Outlook2007 pour voir

jean300 · Answer

Bonjour François,

Perso j'ai Office 2003. Un ami m'a mis MS 2013 pendant que j'étais à l'hosto mais pas encore utilisé, juste ouvert pour voir et là, je suis un peu beaucoup perdu.

http://www.cjoint.com/c/GKEi1FZupjq

f894009 · Answer

Re,

Donc, vous utilisez office2003 pour le moment et outlook du meme office ???

jean300 · Answer

Re,
Oui exact office 2003 pour le moment.

f894009 · Answer

Re,

Ce probleme de message tronque est uniquement avec votre office 2003 ou avec un autre office??

jean300 · Answer

Re,
Je n'ai que 2003 qui rencontre le problème.

f894009 · Answer

Bonjour,

Disons que je botte en touche, car normalement sur le PC ou il y a office 2003 (pas le votre), il n'y a pas Outlook donc pas de probleme.

Chez moi les deux PC ou il y a office 2003, Outlook ne marche pas alors ........

jean300 · Answer

Re,
Par CDO ce serait possible ?

f894009 · Answer

Re,

Par CDO ce serait possible ?
Sauf erreur de ma part, c'est vous qui aviez fixe les bases:
PC avec 2003 CDO
PC avec 2013 Outlook
Vous avez les deux type d'envois dans votre fichier .....!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

jean300 · Answer

Bonjour François,
Je suis de nouveau de retour de l'hosto, problème de sondes.
Je te remercie pour tout le travail que tu as effectué et ton implication totale et parfaite.
En supprimant Outlook pas de tronquage de texte, après avoir remis Outlook le texte est de nouveau tronqué.
Je vais en rester là, qu'en pense-tu ?

jean300 · Answer

Re,
Oui office 2003

jean300 · Answer

Bonjour François,
Désolé de te répondre si tardivement, mais je ne fais pas ce que je veux comme je voudrais, beaucoup de problème.
Je me permets de te mettre ce fichier trouvé sur le net qui fonctionne chez moi.
Pourrais-tu l'adapter en fonction de mes besoins stp.

 https://www.cjoint.com/c/GLnmWvpZW2q

En te remerciant de tout cœur et en te souhaitant de bonnes fêtes avec mes vœux les plus chaleureux.

ps : je serai absent jusqu'au 6/01/18, je me rends chez mes enfants.

jean300 · Answer

Bonjour François,
Je te souhaite une excellente année exempte de tous soucis et de bonheur partagé avec ceux et celles qui te sont proches.

jean300 · Answer

Bonjour et merci à toi,
Prend ton temps et bon rétablissement.

jean300 · Answer

Bonjour François,
J'espère que tu va bien,
De mon coté j'essaie mais sas succès, ne connaissant que très peu vba pas facile du tout.

jean300 · Answer

Bonjour François,
J'ai repris mon classeur et modifié, en C6 et C7 je pense que ce problème est réglé
Merci de corriger mes erreurs.
En te remerciant.

https://cjoint.com/c/HAurrozJq2Y

jean300 · Answer

J'ai essayé de faire de codes mais ils ne sont pas bon, veux-tu me corriger stp
sépare-moi les différentes phases pour que je comprenne
Le mail
Le ou les fichier(s) joint(s)
Le corps du message
L'expédition
En te remerciant

https://cjoint.com/c/HAvmxneTK6Y

jean300 · Answer

Coucou Francois,
Tu vas bien ? Fatigué peut être ?
Jean

jean300 · Answer

Pas de souci je comprends très bien
Bon courage

jean300 · Answer

Bonjour François,
Regarde ce classeur stp.
Cordialement.

 https://cjoint.com/c/HBih3pYtn7d

jean300 · Answer

il devrait fonctionner