envoyer un fichier par email avec excel2000

[lio62]

Bonsoir,

j'ai un fichier a envoyer par email je suis dans excel 2000, mais je n'ai aucun message d'erreur mais rien ne se passe

Sub mailavecoeclasseur()
Dim dest, sujt, msg As String
Dim thefile
thefile = "d:\partage\fdcn\repar.xls"
dest = "toto@orange.fr"
sujt = "essai"
msg = "essai2"
Shell "c:\Program Files\Outlook Express\msimn.exe" & _
"/mailurl:mailto:" & dest & "?subject=" & sujt & "&body=" & msg & ""
SendKeys "%I" & "p" & thefile & "~" & "%s"
End Sub

merci a+

 

[Compte Supprimé 979]

Re : envoyer un fichier par email avec excel2000

Salut Lio62,

Tu devrais trouver ton bonheur sur le site de Frédéric SIGONNEAU,
Ce site n'existe plus

Voilà

 

[lio62]

Re : envoyer un fichier par email avec excel2000

bonjour

et merci Bruno, je fais le test



merci a+

 

[lio62]

Re : envoyer un fichier par email avec excel2000

bonjour (re)

j'ai une erreru sur cette ligne (en rouge)

[COLOR="Red"]Attribute VB_Name = "MailAvecOutlookExpress"[/COLOR]
Sub MailOXpress()
Dim dest$, sujet$, texte$

    dest = "f.s@wanadoudou.disdonc"
    sujet = "Envoyer un mail depuis Xl"
    texte = "Envoyé avec Outlook Express depuis Excel"
    Shell "C:\Program Files\Outlook Express\msimn.exe " & _
    "/mailurl:mailto:" & dest & _
    "?subject=" & sujet & _
    "&Body=" & texte & ", 3"
End Sub

merci a+

 

[Jlou]

Re : envoyer un fichier par email avec excel2000

Bonjour a tous
voici quelque chose qui peut aussi t'aider


Cdt

 

[lio62]

Re : envoyer un fichier par email avec excel2000

merci Jlou,

j'adapte et je teste

merci a+

 

[lio62]

Re : envoyer un fichier par email avec excel2000

BONSOIR,

dans ce code le fichier n'est pas joint ?

Sub MailOXpress2()
Dim dest$, sujet$, texte$

Dim Rep
  Application.ScreenUpdating = False

   Rep = "c:\test1.xls"
  dest = "zaza@mpfe.fr"
  sujet = "Envoyer un mail depuis Xl"
  texte = "Envoyé avec Outlook Express depuis Excel"
  Shell "C:\Program Files\Outlook Express\msimn.exe " & _
      "/mailurl:mailto:" & dest & _
      "?subject=" & sujet & _
      "&Body=" & texte & ", 3", vbMaximizedFocus
      
    SendKeys "%I" & "p" & Rep & "~" & "%s"
End Sub

merci a+

 

[lio62]

Re : envoyer un fichier par email avec excel2000

Bonsoir a tous
le problème est résolu et pourtant je n'ai rien touché ?!!!

merci a+