envoyer un mail à plusieurs personnes

[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

[JB]

Bonjour,

Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = "to...@hotmail.com"
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 documents\x.doc"
msg.Send

JB

[jps]

bonjour lematou
penche toi sur la proc ci-dessous qui envoie à une LISTE et adapte-la en
conséquence
HTH
jps

début de la proc

Dim Dest$, sujet$, Texte$
Dim Rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
Rep = "c:\excel97\jps\OOmember.xls"
Dest = "OO club mailing"
sujet = "Nouvel essai..."
Texte = "...en attendant le bon!"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & sujet & _
"&Body=" & Texte, 3
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider
puis
'envoyer.(à noter que l'envoi "%s" est chez moi en commentaire pour
'd'éventuels rajouts avant envoi)
SendKeys "%I" & "p" & Rep & "~" '& "%s"

fin de la proc

"lematou" <lem...@discussions.microsoft.com> a écrit dans le message de
news: A8770848-AFDE-4990...@microsoft.com...

[dunkelzahn]

On 7 juin, 15:54, lematou <lema...@discussions.microsoft.com> wrote:

Bonjour,

Ce que tu as fait est semble t il un mélange entre Outlook et Outlook
express. C'est bizarre parce que Outlook est parfaitement intégré au
VBA de Excel.

J'utilise ceci personnellement :

Dim EnvoiMail As New Outlook.Application
Dim ObjMail As MailItem
'connexion de outlook
EnvoiMail.session.logon default
'On Error GoTo cleanup
'Pour chaque élément dans la colonne I
For Each cell In Columns("I").Cells
Set EnvoiMail = New Outlook.Application
Set ObjMail = EnvoiMail.CreateItem(olMailItem)
On Error Resume Next
With ObjMail
.BodyFormat = olFormatHTML
'Importance haute du message
.Importance = olImportanceHigh
'Code internet (Code Western European
ISO-8859-1)
.InternetCodepage = 28591
.SentOnBehalfOfName = test
'Inscription de l'email à envoyé en copie
cachée
'adresse en A
'.to =
'adresse en copie
'.cc =
'Adresse en copie cachée
.bcc = adr...@truc.com
'Ajout du titre du mail explicatif
.Subject = "titre du blablabla lablablba"
'Ajout du texte explicatif
.body = "blablabla lablablba"
'Affichage du message
.display
'Envoyer le message
'.send
End With
Next cell

SI ca peut t'aider et j'espère nbe pas avoir fait de fautes

[garnote]

Bonjour JB,

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 Settings\Verreault\Mes documents\Maths\Énigmes.xls"
msg.Send

End Sub

Serge

"JB" <boisg...@hotmail.com> a écrit dans le message de news: 1181229154.9...@n4g2000hsb.googlegroups.com...

[jps]

peut-être que :

msg.AddAttachment "C:\Documents and Settings\Verreault\Mes
documents\Maths\Énigmes.xls"

est suffisant, serge
évidemment, non testé!!!!
et JB va te remettre sur la bonne voie, celles du Seigneur et de VBA m'étant
toujours aussi impénétrables
jps

"garnote" <garn...@ENLEVER.videotron.ca> a écrit dans le message de news:
e1iPfmRq...@TK2MSFTNGP04.phx.gbl...

[garnote]

<vaderetrosp@mas>
:-)))

> peut-être que :
Non

Attendons donc le prince des lumières ;-)

sg

"jps" <vaderetrosp@mas> a écrit dans le message de news: %23gReG2R...@TK2MSFTNGP04.phx.gbl...

[jps]

oops, désolé, j'avais cru lire OE et non Outlook et ce que j'ai suggéré a
été fait (pas par moi, bien sûr) pour OE 5.5 à l'époque mais ça colle avec
OE 6.00
jps

"dunkelzahn" <dunkelzahn...@gmail.com> a écrit dans le message de
news: 1181229606.2...@k79g2000hse.googlegroups.com...

[jps]

alors :

msg.Attachments.Add "C:\Documents and Settings\Verreault\Mes
documents\Maths\Énigmes.xls"

ententieu à la coupire di la ligne
jps
PS toujours pas testé!!!

"garnote" <garn...@ENLEVER.videotron.ca> a écrit dans le message de news:

%23mVFPCS...@TK2MSFTNGP06.phx.gbl...

[garnote]

J'ai testé en m'envoyant un document et grâce à
ton infini sagesse, il est parti. Mais ça fait vingt minutes
et il n'est pas encore arrivé! En attendant, je visionne
ce petit délire musical ;-)
Earth Angel

Serge

jps" <vaderetrosp@mas> a écrit dans le message de news: eDH0UJSq...@TK2MSFTNGP05.phx.gbl...

[garnote]

Mon message n'a pas pris le lien. Dernier essai :
Earth Angel

Serge

"garnote" <garn...@ENLEVER.videotron.ca> a écrit dans le message de news: ua6murSq...@TK2MSFTNGP04.phx.gbl...

[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 = "t...@hotmail.com"

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:\mesdoc\xx.xls"
msg.Send

Le + simple est sans doute de supprimer Source:=

JB

On 7 juin, 17:37, "garnote" <garno...@ENLEVER.videotron.ca> 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 Settings\Verreault\Mes documents\Maths\Énigmes.xls"
> msg.Send
>
> End Sub
>
> Serge
>

> "JB" <boisgont...@hotmail.com> a écrit dans le message de news: 1181229154.956464.275...@n4g2000hsb.googlegroups.com...

> Bonjour,
>
> Set olApp = CreateObject("Outlook.Application")
> Set msg = olApp.CreateItem(0)

> msg.To = "t...@hotmail.com"

> 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 documents\x.doc"
> msg.Send
>
> JB
>
> On 7 juin, 15:54, lematou <lema...@discussions.microsoft.com> 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 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- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -