Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour michel cela peut-être :
Sub MailOXpress2() Dim Dest$, sujet$, texte$
Dim Rep As String Application.ScreenUpdating = False Dest = InputBox("entrer l'adresse du destinataire") sujet = InputBox("entrer l'objet du message") texte = InputBox("entrer le texte du corps du message") 'Rep est le nom du fichier à joindre. Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*") Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & _ "?subject=" & sujet & _ "&Body=" & texte & ".", vbMaximizedFocus
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion 'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis 'envoyer. If Rep = "" Then SendKeys "~" End If Exit Sub SendKeys "%I" & "p" & Rep & "~" '& "%s" 'en commentaire pour 'ne pas lancer l'envoi de l'email End Sub
HTH jps
"Michel Voirain" a écrit dans le message de news:O%
Bonjour à tous, Comment envoyer un classeur par internet (avec outlook express) à l'aide de
VBA Merci Michel
bonjour michel
cela peut-être :
Sub MailOXpress2()
Dim Dest$, sujet$, texte$
Dim Rep As String
Application.ScreenUpdating = False
Dest = InputBox("entrer l'adresse du destinataire")
sujet = InputBox("entrer l'objet du message")
texte = InputBox("entrer le texte du corps du message")
'Rep est le nom du fichier à joindre.
Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*")
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & _
"?subject=" & sujet & _
"&Body=" & texte & ".", vbMaximizedFocus
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider
puis
'envoyer.
If Rep = "" Then
SendKeys "~"
End If
Exit Sub
SendKeys "%I" & "p" & Rep & "~" '& "%s" 'en commentaire pour
'ne pas lancer l'envoi de l'email
End Sub
HTH
jps
"Michel Voirain" <michel.voirain@wanadoo.fr> a écrit dans le message de
news:O%23T0vSGNFHA.3760@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
Comment envoyer un classeur par internet (avec outlook express) à l'aide
de
Dim Rep As String Application.ScreenUpdating = False Dest = InputBox("entrer l'adresse du destinataire") sujet = InputBox("entrer l'objet du message") texte = InputBox("entrer le texte du corps du message") 'Rep est le nom du fichier à joindre. Rep = Application.GetOpenFilename("Tous les fichiers (*.*), *.*") Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & _ "?subject=" & sujet & _ "&Body=" & texte & ".", vbMaximizedFocus
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion 'pièce jointe, joindre le fichier contenu dans la variable Rep, valider puis 'envoyer. If Rep = "" Then SendKeys "~" End If Exit Sub SendKeys "%I" & "p" & Rep & "~" '& "%s" 'en commentaire pour 'ne pas lancer l'envoi de l'email End Sub
HTH jps
"Michel Voirain" a écrit dans le message de news:O%
Bonjour à tous, Comment envoyer un classeur par internet (avec outlook express) à l'aide de