Encore : ouvrir un fichier excel directement dans un mail

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
- 2) N'est pas visible sur ce forum
- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre, en
insistant lourdement)
Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a
cause

du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000


"Ritalou" <Celtec@ags-mineraux.com> a écrit dans le message news:
#6opqK#8EHA.3756@TK2MSFTNGP14.phx.gbl...

Bonjour à toutes et à tous
La macro ci dessous fonctionne tres bien mais ....
mais j'aimerais en plus qu'a la reception de ce mail,
le réceptionnaire, "MonDest@Toto.com" ouvre
un fichier Excel en cliquant sur "----MonFichier-----"
j'ai bien essayé avec un lien hyper texte mais je n'arrive
pas a la mettre en place par vba dans le corps de mon mail
de plus je désire que le réceptionnaire ouvre ce fichier Excel
dans Excel (ouverture d'une cession Excel ).
Merci d'avance pour vos réponses et bonne journée
Ritalou
Excel 2000-Win2000

Option Explicit
Sub MonMail()
Dim MonFichier 'as ?????
Dim Dest As String: Dim Message As String
MonFichier = "C:MonRepertoireTest.xls"
Dest = "MonDest@Toto.com"
Message = "Bonjour " & Chr(13) & _
"merci d'ouvrir le fichier suivant " & Chr(13) & _
"----MonFichier-----" & Chr(13) & _
"Bonne journée "
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact
As

Recipient
Set OLf = GetObject("",

"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Mon Test"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
- 2) N'est pas visible sur ce forum
- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre, en
insistant lourdement)
Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a cause
du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000


"Ritalou" <Celtec@ags-mineraux.com> a écrit dans le message news:
#6opqK#8EHA.3756@TK2MSFTNGP14.phx.gbl...

Bonjour à toutes et à tous
La macro ci dessous fonctionne tres bien mais ....
mais j'aimerais en plus qu'a la reception de ce mail,
le réceptionnaire, "MonDest@Toto.com" ouvre
un fichier Excel en cliquant sur "----MonFichier-----"
j'ai bien essayé avec un lien hyper texte mais je n'arrive
pas a la mettre en place par vba dans le corps de mon mail
de plus je désire que le réceptionnaire ouvre ce fichier Excel
dans Excel (ouverture d'une cession Excel ).
Merci d'avance pour vos réponses et bonne journée
Ritalou
Excel 2000-Win2000

Option Explicit
Sub MonMail()
Dim MonFichier 'as ?????
Dim Dest As String: Dim Message As String
MonFichier = "C:MonRepertoireTest.xls"
Dest = "MonDest@Toto.com"
Message = "Bonjour " & Chr(13) & _
"merci d'ouvrir le fichier suivant " & Chr(13) & _
"----MonFichier-----" & Chr(13) & _
"Bonne journée "
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact As
Recipient
Set OLf = GetObject("",

"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Mon Test"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
peut etre : est ce que tu veux que ton fichier soit attache au mail, ou est ce

- 2) N'est pas visible sur ce forum
mais si, mais si

- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre, en
insistant lourdement).
Il faut etre patient dans la vie. Ceci est un newsgroup, pas du "chat".

Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a cause
du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
- 2) N'est pas visible sur ce forum
- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre, en
insistant lourdement)
Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a
cause

du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000


"Ritalou" <Celtec@ags-mineraux.com> a écrit dans le message news:
#6opqK#8EHA.3756@TK2MSFTNGP14.phx.gbl...

Bonjour à toutes et à tous
La macro ci dessous fonctionne tres bien mais ....
mais j'aimerais en plus qu'a la reception de ce mail,
le réceptionnaire, "MonDest@Toto.com" ouvre
un fichier Excel en cliquant sur "----MonFichier-----"
j'ai bien essayé avec un lien hyper texte mais je n'arrive
pas a la mettre en place par vba dans le corps de mon mail
de plus je désire que le réceptionnaire ouvre ce fichier Excel
dans Excel (ouverture d'une cession Excel ).
Merci d'avance pour vos réponses et bonne journée
Ritalou
Excel 2000-Win2000

Option Explicit
Sub MonMail()
Dim MonFichier 'as ?????
Dim Dest As String: Dim Message As String
MonFichier = "C:MonRepertoireTest.xls"
Dest = "MonDest@Toto.com"
Message = "Bonjour " & Chr(13) & _
"merci d'ouvrir le fichier suivant " & Chr(13) & _
"----MonFichier-----" & Chr(13) & _
"Bonne journée "
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact
As

Recipient
Set OLf = GetObject("",

"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Mon Test"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Il faut etre patient dans la vie
Je suis desolé, je ne pensais pas etre impatient

Note que cette procedure ne fait qu'envoyer le fichier en attache. Je ne
connais pas le moyen de rajouter un texte dans le corps du message.

Ritalou wrote:

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
peut etre : est ce que tu veux que ton fichier soit attache au mail, ou

est ce

que le fichier est sur un serveur et tu veux juste inclure le lien dans
le

mail ?

- 2) N'est pas visible sur ce forum
mais si, mais si

- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre,
en

insistant lourdement).
Il faut etre patient dans la vie. Ceci est un newsgroup, pas du "chat".

Beaucoup de participants n'y accedent qu'a certaines heures de la journee,
ou meme certains jours.

en tout cas, si tu veux le mettre en piece attachee, voici ce que j'ai
dans une de mes procedures (que j'ai pompee je ne sais plus ou) :

Sub SendEmail(address As String, filename As String, SubjectTitle As
String)

Workbooks(filename).Activate
ActiveWorkbook.Activate
Application.Wait Now + TimeValue("00:00:01") ' necessaire je ne sais
pas pourquoi sur mon PC

Workbooks(filename).SendMail Recipients:­dress,
Subject:=SubjectTitle

End Sub
Note que cette procedure ne fait qu'envoyer le fichier en attache. Je ne
connais pas le moyen de rajouter un texte dans le corps du message.

Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a
cause

du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000

c'est sur Excel 2000/win 2000 aussi.

Bonne Journee
Jean Francois.

Bonjour Jean Francois
J'savais que je n'avais pas ete assez clair dans ma question
Ce que je cherche :
a la reception de mon mail, le réceptionnaire doit pouvoir ouvrir un
classeur excel ,
ceci dans une cession d'excel , par un simple click sur un adresse qui
serait dans
le corps de mon mail . J'ai pensé au lien hypertexte mais je ne sais pas
le mettre
dans le corps de mon message par une instruction VBA

Il faut etre patient dans la vie
Je suis desolé, je ne pensais pas etre impatient

J'ai attendu 24h00 avant de reposer ma question (dans un autre fil; je
sais
...)
mais c'est plus dans le but de passer a autre chose. Le fait d'avoir
maintenant
3 reponses me confirme dans l'idée d'essayer de faire autrement
Car en principe dans ce forum quand reponse il y a, alors reponse tres
rapide arrive

Note que cette procedure ne fait qu'envoyer le fichier en attache. Je ne
connais pas le moyen de rajouter un texte dans le corps du message.

Si cela peut t'aider, ce bout de procedure le fait
il faut mettre une reference a microsoft outlook 9.0 object library

Option Explicit
Sub MonMail()
Dim Dest As String: Dim Message As String
Dim MonFich As String
MonFichier = "C:MonRepertoireTest.xls"
Dest = "MonDest@Toto.com"
Message = "Bonjour " & Chr(13) & _
"merci d'ouvrir le fichier suivant " & Chr(13) & _
Range("A1").value & Chr(13) & _
"Bonne journée "
'Range("A1") si tu veus ajouter au corps de ton mesage des info en +
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact As
Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Mon Test"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.Attachments.Add MonFich 'Ici le fichier joint
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

'___________________________________________________________________________
______

"Jean Francois Galland" <jean.francois.galland@pasdedomaine.com> a écrit
dans le message news: crm4ne$343$1@az33news01.freescale.net...

Ritalou wrote:

Bonjour à toutes et à tous
Une ame charitable pourait elle me dire si ma question d'hier (voir ci
dessous)
- 1) Est mal formulée
peut etre : est ce que tu veux que ton fichier soit attache au mail,

ou
est ce

que le fichier est sur un serveur et tu veux juste inclure le lien
dans
le

mail ?

- 2) N'est pas visible sur ce forum
mais si, mais si

- 3) N'as pas de reponse (meme pas un p'tit bout, dit le bougre,
en

insistant lourdement).
Il faut etre patient dans la vie. Ceci est un newsgroup, pas du "chat".

Beaucoup de participants n'y accedent qu'a certaines heures de la
journee,
ou meme certains jours.

en tout cas, si tu veux le mettre en piece attachee, voici ce que j'ai
dans une de mes procedures (que j'ai pompee je ne sais plus ou) :

Sub SendEmail(address As String, filename As String, SubjectTitle As
String)

Workbooks(filename).Activate
ActiveWorkbook.Activate
Application.Wait Now + TimeValue("00:00:01") ' necessaire je ne sais
pas pourquoi sur mon PC

Workbooks(filename).SendMail Recipients:­dress,
Subject:=SubjectTitle

End Sub
Note que cette procedure ne fait qu'envoyer le fichier en attache. Je ne
connais pas le moyen de rajouter un texte dans le corps du message.

Merci d'avance pour vos réponses et bonne journée
Ritalou (Qu'a decidé d'ouvrir un autre fil en accord avec lui meme, a
cause

du point 2 ... et 1 .... et 3 .... )
Excel 2000-Win2000

c'est sur Excel 2000/win 2000 aussi.

Bonne Journee
Jean Francois.

Bonjour Jean Francois
J'savais que je n'avais pas ete assez clair dans ma question
Ce que je cherche :
a la reception de mon mail, le réceptionnaire doit pouvoir ouvrir un
classeur excel ,
ceci dans une cession d'excel , par un simple click sur un adresse qui
serait dans
le corps de mon mail . J'ai pensé au lien hypertexte mais je ne sais pas
le mettre
dans le corps de mon message par une instruction VBA
[snip]

Si cela peut t'aider, ce bout de procedure le fait
il faut mettre une reference a microsoft outlook 9.0 object library
Option Explicit
Sub MonMail()
Dim Dest As String: Dim Message As String
Dim MonFich As String
MonFichier = "C:MonRepertoireTest.xls"
Dest = "MonDest@Toto.com"
Message = "Bonjour " & Chr(13) & _
"merci d'ouvrir le fichier suivant " & Chr(13) & _
Range("A1").value & Chr(13) & _
"Bonne journée "
'Range("A1") si tu veus ajouter au corps de ton mesage des info en +
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact As
Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Mon Test"
Set acontact = .Recipients.Add(Dest)
.Body = Message
.Attachments.Add MonFich 'Ici le fichier joint
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End Sub

Ca marche ( a part que je n'arrive pas a envoyer de piece attachee, mais
comme tu as reussi, je n'insiste pas.)