envoyer un fichier par email avec excel2000

lio62 · 28 Mars 2007

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

Code:

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 · 28 Mars 2007

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 · 29 Mars 2007

Re : envoyer un fichier par email avec excel2000

bonjour

et merci Bruno, je fais le test

merci a+

lio62 · 29 Mars 2007

Re : envoyer un fichier par email avec excel2000

bonjour (re)

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

Code:

[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 · 29 Mars 2007

Re : envoyer un fichier par email avec excel2000

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

Cdt

lio62 · 29 Mars 2007

Re : envoyer un fichier par email avec excel2000

merci Jlou,

j'adapte et je teste

merci a+

lio62 · 29 Mars 2007

Re : envoyer un fichier par email avec excel2000

BONSOIR,

dans ce code le fichier n'est pas joint ?

Code:

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 · 30 Mars 2007

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+

envoyer un fichier par email avec excel2000

lio62

XLDnaute Nouveau

Compte Supprimé 979

Guest

lio62

XLDnaute Nouveau

lio62

XLDnaute Nouveau

Jlou

XLDnaute Nouveau

Pièces jointes

lio62

XLDnaute Nouveau

lio62

XLDnaute Nouveau

lio62

XLDnaute Nouveau

Discussions similaires