envoyer un fichier par email avec excel2000

  • Initiateur de la discussion Initiateur de la discussion lio62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lio62

XLDnaute Nouveau
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+
 
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+
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
1 K
Retour