code vba mailto

Bonjour,

Envoi par OutLook de PJ

Dans Outils/Références cocher OutLook
Sub envoi_PJ()
ChDir ActiveWorkbook.Path
répertoireAppli = ActiveWorkbook.Path ' Penser à Outils/
Références Outlook
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
[A11].Select
Do While Not IsEmpty(ActiveCell)
MsgTo = MsgTo & ActiveCell & ";"
ActiveCell.Offset(1, 0).Select
Loop
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = MsgTo
msg.Subject = [A2]
msg.Body = [A5] & Chr(13) & Chr(13) & [A8].Value & Chr(13) &
Chr(13)
'-- pj
[C8].Select
Do While Not IsEmpty(ActiveCell)
nf = ActiveWorkbook.Path & "" & ActiveCell.Value
msg.Attachments.Add Source:=nf
ActiveCell.Offset(1, 0).Select
Loop
msg.Send
End Sub

http://cjoint.com/?bDruAhZY3J

Cordialement JB

On 29 jan, 16:23, Michel <mic...@msn.com> wrote:

bonjour !!!

j'ai quelques lignes de code, qui execute l'action suivante:

il prend le classeur et l'attache dans outlook...mais ne met pas
l'adresse email, type mailto...je pense ?.

Merci de vos idées pour integrer au code ci-dessous l'adresse mail
ex: jeantranc...@bubu.ch

un grand merci de votre aide

Michel

Sub mailto()
'
' mailto Macro
' Macro enregistrée le 12.12.2006 par cesureg
'

'
Application.Dialogs(xlDialogSendMail).Show
'????????
End Sub

--
Ceci est une signature automatique de MesNews.
Site :http://www.mesnews.net

Bonjour JB,
Suis très intéressé par votre soluce. N'y a-t-il pas une coquille à cette
ligne de code:
msg.Attachments.Add Source:=nf
Je suis incapable de compléter l'appel de la macro à cause de cette variable
définie plus haut.

Merci !

bonjour,

Un grand merci pour votre aide !, juste une question dans le code:

répertoireAppli , il y a "é" à répertoire ???
il plante ici....

j'ai rajoué pourtant "Microsoft Outlook 10" dans outils référence

Cordialement

Michel

Bonjour,

Envoi par OutLook de PJ

Dans Outils/Références cocher OutLook
Sub envoi_PJ()
ChDir ActiveWorkbook.Path
répertoireAppli = ActiveWorkbook.Path ' Penser à Outils/
Références Outlook
'--- Envoi par mail
Dim olapp As Outlook.Application
Sheets("destinataires").Select
[A11].Select
Do While Not IsEmpty(ActiveCell)
MsgTo = MsgTo & ActiveCell & ";"
ActiveCell.Offset(1, 0).Select
Loop
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = MsgTo
msg.Subject = [A2]
msg.Body = [A5] & Chr(13) & Chr(13) & [A8].Value & Chr(13) &
Chr(13)
'-- pj
[C8].Select
Do While Not IsEmpty(ActiveCell)
nf = ActiveWorkbook.Path & "" & ActiveCell.Value
msg.Attachments.Add Source:=nf
ActiveCell.Offset(1, 0).Select
Loop
msg.Send
End Sub

http://cjoint.com/?bDruAhZY3J

Cordialement JB

On 29 jan, 16:23, Michel <mic...@msn.com> wrote:

bonjour !!!

j'ai quelques lignes de code, qui execute l'action suivante:

il prend le classeur et l'attache dans outlook...mais ne met pas
l'adresse email, type mailto...je pense ?.

Merci de vos idées pour integrer au code ci-dessous l'adresse mail
ex: jeantranc...@bubu.ch

un grand merci de votre aide

Michel

Sub mailto()
'
' mailto Macro
' Macro enregistrée le 12.12.2006 par cesureg
'

'
Application.Dialogs(xlDialogSendMail).Show
'????????
End Sub

--
Ceci est une signature automatique de MesNews.
Site :http://www.mesnews.net

--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net