Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Pb Shell : créa+envoi mail depuis Excel

Pb Shell : créa+envoi mail depuis Excel

5 réponses
Avatar
Sébastien V.
le code suivant me renvoie une err exec 53 : fichier noon=20
dispo. pourquoi ?
(les variables AdrChoisie, sujet et texte sont d=E9finies et=20
non nulles)

gomail =3D Shell("C:\Program Files\Outlook=20
Express\msimn.exe" & "/mailurl:mailto:" & _
AdrChoisie & "?subject=3D" & sujet & "&Body=3D" & texte,=20
vbMinimizedNoFocus)

merci pour vos r=E9ponses !
S=E9bastien,
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Patrice Henrio
J'ai eu ce genre de plaisanterie après avoir transféré mes fichiers d'un
CD-RW vers un disque dur. Ils se sont retrouvés avec un attribut "lecture
seule" et l'erreur renvoyée par VB était justement cette erreur 53 qui
n'indiquait pas vraiment l'origine du problème.


"Sébastien V." a écrit dans le message de news:
1d9201c4ac51$b81fb270$
le code suivant me renvoie une err exec 53 : fichier noon
dispo. pourquoi ?
(les variables AdrChoisie, sujet et texte sont définies et
non nulles)

gomail = Shell("C:Program FilesOutlook
Expressmsimn.exe" & "/mailurl:mailto:" & _
AdrChoisie & "?subject=" & sujet & "&Body=" & texte,
vbMinimizedNoFocus)

merci pour vos réponses !
Sébastien,
Avatar
sébastien V.
certes mais en l'occurence je ne fais appel à aucun
fichier !!!!!
le code définit l'adresse d'envoi, le contenu (body) est
une variable..
alors ou est le PB ?


-----Message d'origine-----
J'ai eu ce genre de plaisanterie après avoir transféré


mes fichiers d'un
CD-RW vers un disque dur. Ils se sont retrouvés avec un


attribut "lecture
seule" et l'erreur renvoyée par VB était justement cette


erreur 53 qui
n'indiquait pas vraiment l'origine du problème.


"Sébastien V." a écrit dans le


message de news:
1d9201c4ac51$b81fb270$
le code suivant me renvoie une err exec 53 : fichier noon
dispo. pourquoi ?
(les variables AdrChoisie, sujet et texte sont définies et
non nulles)

gomail = Shell("C:Program FilesOutlook
Expressmsimn.exe" & "/mailurl:mailto:" & _
AdrChoisie & "?subject=" & sujet & "&Body=" & texte,
vbMinimizedNoFocus)

merci pour vos réponses !
Sébastien,


.



Avatar
scraper
Bonjour sébastien V.
(dans news:16ad01c4ac65$613c6980$)
tu nous disais :

certes mais en l'occurence je ne fais appel à aucun
fichier !!!!!
le code définit l'adresse d'envoi, le contenu (body) est
une variable..
alors ou est le PB ?



regarde si tous tes fichiers de OE (ceux de ta banque de données, les fameux
dbx) ne sont pas en lecture seule ?




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
Sébastien V.
il manque un espace devant /mailurl.....

maintenant le message se crée sans problème mais ne part
pas :-(
j'ai tenté un sendkeys alt+s mais le focus est sur le
nouveau message (qui reste à l'écran mais ne part pas)

-----Message d'origine-----
certes mais en l'occurence je ne fais appel à aucun
fichier !!!!!
le code définit l'adresse d'envoi, le contenu (body) est
une variable..
alors ou est le PB ?


-----Message d'origine-----
J'ai eu ce genre de plaisanterie après avoir transféré


mes fichiers d'un
CD-RW vers un disque dur. Ils se sont retrouvés avec un


attribut "lecture
seule" et l'erreur renvoyée par VB était justement cette


erreur 53 qui
n'indiquait pas vraiment l'origine du problème.


"Sébastien V." a écrit dans le


message de news:
1d9201c4ac51$b81fb270$
le code suivant me renvoie une err exec 53 : fichier noon
dispo. pourquoi ?
(les variables AdrChoisie, sujet et texte sont définies




et
non nulles)

gomail = Shell("C:Program FilesOutlook
Expressmsimn.exe" & "/mailurl:mailto:" & _
AdrChoisie & "?subject=" & sujet & "&Body=" & texte,
vbMinimizedNoFocus)

merci pour vos réponses !
Sébastien,


.



.



Avatar
ng
Salut,

Pour faire cela tu ferais bien mieux d'utiliser un ShellExecute() :

Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
Call ShellExecute(Me.hwnd, vbNullString, "mailto:" & AdrChoisie &
"?subject=" & sujet & "&Body=" & texte, vbNullString, "C:", SW_SHOWNORMAL)
End Sub


Car l'utilisateur n'a pas forcément OE comme client favoris et OE n'est pas
forcément installé dans ce chemin...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


Sébastien V. wrote:
le code suivant me renvoie une err exec 53 : fichier noon
dispo. pourquoi ?
(les variables AdrChoisie, sujet et texte sont définies et
non nulles)

gomail = Shell("C:Program FilesOutlook
Expressmsimn.exe" & "/mailurl:mailto:" & _
AdrChoisie & "?subject=" & sujet & "&Body=" & texte,
vbMinimizedNoFocus)

merci pour vos réponses !
Sébastien,