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,
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"
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"
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
Pas mal du tout le usf
Après 3 essai envoi, les mails arrivent tronqués le dernier mot étant
murmure. Bizarre
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
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
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
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")
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")
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
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
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
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
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
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
