Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel envoyer un mail à plusieurs personnes

envoyer un mail à plusieurs personnes

11 réponses
Avatar
lematou
Bonjour à tous.
j'ai bien fouillé le site mais je ne trouve pas mon bonheur alors je me
remets à vous.
voilà, je voudrais faire une macro en vba sous excel pour envoyer les
résultats d'une macro a une liste de personne.

j'ai xls2000 et outlook2003
j'ai trouvé ceci :
Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

il me lance bien outlook mais m'envoi le message suivant:
"page web introuvable, ......................
y en a t il un d'entre vous qui connait le moyen de m'en sortir ..

merci beaucoup et excusez moi pour le temps que je vous prend

bien aimablement
LEMATOU
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
Bonsoir,

Pour un fonctionnement avec Source:=xxx, il faut:

1- Avoir spécifié la bibliothèque Microsoft OutLook dans Outils/
Référence:
2- Déclaré : Dim msg As MailItem

'cocher Outils/Référence: Microsoft OutLook
Dim msg As MailItem
Set olapp = CreateObject("Outlook.Application")
Set msg = olapp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2008"
msg.Body = corps
msg.Attachments.Add Source:="c:mesdocxx.xls"
msg.Send

Le + simple est sans doute de supprimer Source:=

JB



On 7 juin, 17:37, "garnote" wrote:
BonjourJB,

J'ai essayé ta macro et elle bloque à l'avant-dernière ligne :
Erreur d'exécution 446. Cette objet ne gère pas les arguments nommé s.
Pourquoi ?

Sub Email()

Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
'msg.To = une adresse
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2008"
msg.Body = corps
msg.Attachments.Add Source:="C:Documents and SettingsVerreaultMe s documentsMathsÉnigmes.xls"
msg.Send

End Sub

Serge

"JB" a écrit dans le message de news: 1181229
Bonjour,

Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2008"
msg.Body = corps
'msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send

JB

On 7 juin, 15:54, lematou wrote:



Bonjour à tous.
j'ai bien fouillé le site mais je ne trouve pas mon bonheur alors je me
remets à vous.
voilà, je voudrais faire une macro en vba sous excel pour envoyer les
résultats d'une macro a une liste de personne.

j'ai xls2000 et outlook2003
j'ai trouvé ceci :
Shell "C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"

il me lance bien outlook mais m'envoi le message suivant:
"page web introuvable, ......................
y en a t il un d'entre vous qui connait le moyen de m'en sortir ..

merci beaucoup et excusez moi pour le temps que je vous prend

bien aimablement
LEMATOU- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



1 2