Envoi de mail automatique via excel

Qhes Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


Je souhaiterais envoyer un mail en appuyant sur un bouton sous excel selon un tableau que je remplirais :

exemple

colonne A : destinataire
colonne B : Cci
colonne C : sujet du mail

chaque message aurait le meme corps de texte prédéfinis

avec une copie des lignes E, F, G, H (garder les lignes de titres)

sachant que plusieurs lignes peuvent concerner le meme destinataire, le top ce serait que chaque destinataire recoivent qu'un mail et pas un par ligne...

est ce que quelque'un sais si c'est possible?

merci d'avance
Johanna


A voir également:

7 réponses

Qhes Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   29
 
Merci pour ces infos

je vais essayer mais, j'ai pas accès a faqword :(
15
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Pourquoi tu n'as pas accès à Faqword ?.... Ce n'est pas un site subversif !!! :D
0
Qhes Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   29
 
c la politique de filtrage :(
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Elle est bizarre votre politique de filtrage. Ce site ne contient que des trucs sur Word...
Je te recopie la page :

Voici une macro qui fonctionne avec Outlook. Créer la macro et l'affecter à un bouton sur la barre d'outils :



Sub envoimail()
'
' envoie un mail avec la pièce jointe
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)

monItem.To = " mondestinataire@adresse.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub




--------------------------------------------------------------------------------

On peut ajouter des variables à la place des constantes. Par exemple, si le destinataire varie, on ajoutera une inputbox en début de macro afin que l'utilisateur saisisse l'adresse du destinataire :

destinataire = InputBox("adresse du destinataire")


et à la place de l'adresse du destinataire en dur, on mettra :

monItem.To = destinataire
0
cracroc Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   > m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention  
 
Bonjour
Je viens d'essayer ta MACRO mais j'ai un message d'erreur sur 'mondoc.Add ActiveDocument' voici le message : Erreur d'exécution '424 Objet requis
Merci de ton aide
Carole
carole.catorc@renolit.com
0
Qhes Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   29
 
je suis sous outlook
2
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

Quel est le logiciel de messagerie utilisé ?

m@rina
1
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour Johanna,

Avec Outlook c'est faisable assez facilement, du fait qu'il s'agit d'une appli de la suite Office.

Il faut créer une macro en pratiquant l'automation, c'est à dire ( après avoir créer ses variables,) en créant un objet Outlook, et en pilotant Outlook depuis Excel.

Tu peux déjà t'inspirer de celle ci que j'ai écrite pour Word, mais c'est le même principe que pour Excel :

https://faqword.com/index.php/word/faq-word/vba-solutions/463-comment-creer-un-bouton-qui-envoie-le-fichier-en-cours

Pour que chaque destinataire reçoive son propre mail, il faut que les destinataires soient listés dans ton classeur. Et ensuite tu fais une boucle sur la range qui contient les destinataires.

m@rina

1

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Qhes Messages postés 176 Date d'inscription   Statut Membre Dernière intervention   29
 
bonjour,

je ne suis vraiment pas assez qualifié en vba pour modifier la macro... j'y comprend rien :(

quel code je doit modifier pour le passé de word a excel?
et comment je dois disposer mes informations pour qu'il trouve les bonne données au bon endroit?

merci d'avance pour votre aide
1
clem
 
Bonjour,

J'arrive par hazar sur ce sujet qui m'a bien aidé dans ma compréhension de l'envoi de mail via Excel, so merci à ceux qui y ont participé.

Je souhaiterais en fait ajouter une simple condition à cette macro, à savoir envoyer un mail si et seulement si la date du jour est égale à une date dans une colonne de mon tableau.

Savez-vous ou je dois insérer le code ? Voire quel serait le code ? :)

Merci beaucoup par avance
0
Gui921 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour a tous,

Est ce que cela peut également fonctionner avec Lotus ?
0
m@rina Messages postés 23923 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

Le VBA Microsoft ne connaît pas le langage d'IBM... Donc, il ne peut pas piloter un objet Lotus.

m@rina
0