Je souhaite exp=E9dier un mail =E0 partir d'ACCESS? ... Ce que=20
j'ai d=E9j=E0 fait il y a longtemps ... Mais le probl=E8me est=20
que cela ne marche plus ; la seulle chose que je parvienne=20
=E0 faire c'est d'ouvrir OE (RetVal =3D Shell("C:\Program=20
Files\Outlook Express\msimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter=20
object ...", "Your text ...", True > retourne un message=20
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP=20
STOPPER ...).
Juste une petite précision : SendKeys existe bien sous Access, ou plutôt VBA, et heureusement d'ailleurs ;-)
Eric
Anor
Bonjour, Pour piloter OE via MAPI : http://memoaccess.free.fr/outlook.htm#SendMailMAPI Attention c'est lourd car cette fonction vérifie la messagerie par défaut avec http://memoaccess.free.fr/registry.htm#ReadRegistry et http://memoaccess.free.fr/registry.htm#DefaultMailSoftware
A simplifier un peu pour une utilisation OE exclusive. à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
DJP wrote: | Merci ! | | Je vais appliquer votre méthode dans mon application mais | à un autre endroit car cela ne me permet pas de transérer | texte et objet du mail (que je souhaite archiver dans ma | base par ailleurs - application suivi de chantier - compte- | rendu expédié à plusieurs destinataires et repris ensuite) | | Une autre idée peut-être - Je suis planté ! | | Merci quand même - J'ai encore appris aujourd'hui | | DJP
Bonjour,
Pour piloter OE via MAPI :
http://memoaccess.free.fr/outlook.htm#SendMailMAPI
Attention c'est lourd car cette fonction vérifie la messagerie par défaut avec
http://memoaccess.free.fr/registry.htm#ReadRegistry
et
http://memoaccess.free.fr/registry.htm#DefaultMailSoftware
A simplifier un peu pour une utilisation OE exclusive.
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
DJP wrote:
| Merci !
|
| Je vais appliquer votre méthode dans mon application mais
| à un autre endroit car cela ne me permet pas de transérer
| texte et objet du mail (que je souhaite archiver dans ma
| base par ailleurs - application suivi de chantier - compte-
| rendu expédié à plusieurs destinataires et repris ensuite)
|
| Une autre idée peut-être - Je suis planté !
|
| Merci quand même - J'ai encore appris aujourd'hui
|
| DJP
Bonjour, Pour piloter OE via MAPI : http://memoaccess.free.fr/outlook.htm#SendMailMAPI Attention c'est lourd car cette fonction vérifie la messagerie par défaut avec http://memoaccess.free.fr/registry.htm#ReadRegistry et http://memoaccess.free.fr/registry.htm#DefaultMailSoftware
A simplifier un peu pour une utilisation OE exclusive. à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
DJP wrote: | Merci ! | | Je vais appliquer votre méthode dans mon application mais | à un autre endroit car cela ne me permet pas de transérer | texte et objet du mail (que je souhaite archiver dans ma | base par ailleurs - application suivi de chantier - compte- | rendu expédié à plusieurs destinataires et repris ensuite) | | Une autre idée peut-être - Je suis planté ! | | Merci quand même - J'ai encore appris aujourd'hui | | DJP
Pascal Engelmajer
Salut, Merci Effectivement ... donc mes deux exemples doivent fonctionner (le testSK avec PJ) Option Compare Database Option Explicit 'Fonction keybd_event Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
' bVk est le code ascii de la touche ' a à z 65 à 90 ' Tab 9 ' Shift 16 'alt 18 Const VK_ALT = 18 'alt ' ---Envoie de la séquence de touche--- Sub test() Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & "" & _ "?subject=" & "sujet" & _ "&Body=" & "texte", vbMaximizedFocus Call keybd_event(VK_ALT, 0, 0, 0) Call keybd_event(Asc("S"), 0, 0, 0) End Sub Public Sub testSK() Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & "" & _ "?subject=" & "sujet" & _ "&Body=" & "texte", vbMaximizedFocus SendKeys "%I" & "p" & "c:testtest.txt" & "~" & "{TAB 6}" & "^a" & "~" & "%s" End Sub PS: ne pas appeler depuis le fenêtre de code -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Eric" a écrit dans le message de news:
Bonjour Pascal,
"Pascal Engelmajer" écrivait:
Sendkey n'existe pas en Access,
Juste une petite précision : SendKeys existe bien sous Access, ou plutôt VBA, et heureusement d'ailleurs ;-)
Eric
Salut,
Merci
Effectivement ...
donc mes deux exemples doivent fonctionner (le testSK avec PJ)
Option Compare Database
Option Explicit
'Fonction keybd_event
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
' bVk est le code ascii de la touche
' a à z 65 à 90
' Tab 9
' Shift 16
'alt 18
Const VK_ALT = 18 'alt
' ---Envoie de la séquence de touche---
Sub test()
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & "pascal.engelmajer@ilyapa.net" & _
"?subject=" & "sujet" & _
"&Body=" & "texte", vbMaximizedFocus
Call keybd_event(VK_ALT, 0, 0, 0)
Call keybd_event(Asc("S"), 0, 0, 0)
End Sub
Public Sub testSK()
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & "pascal.engelmajer@ilyapa.net" & _
"?subject=" & "sujet" & _
"&Body=" & "texte", vbMaximizedFocus
SendKeys "%I" & "p" & "c:testtest.txt" & "~" & "{TAB 6}" & "^a" & "~"
& "%s"
End Sub
PS: ne pas appeler depuis le fenêtre de code
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
XnF94F2C56BB1894fframZZhotmailcom@207.46.248.16...
Salut, Merci Effectivement ... donc mes deux exemples doivent fonctionner (le testSK avec PJ) Option Compare Database Option Explicit 'Fonction keybd_event Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
' bVk est le code ascii de la touche ' a à z 65 à 90 ' Tab 9 ' Shift 16 'alt 18 Const VK_ALT = 18 'alt ' ---Envoie de la séquence de touche--- Sub test() Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & "" & _ "?subject=" & "sujet" & _ "&Body=" & "texte", vbMaximizedFocus Call keybd_event(VK_ALT, 0, 0, 0) Call keybd_event(Asc("S"), 0, 0, 0) End Sub Public Sub testSK() Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & "" & _ "?subject=" & "sujet" & _ "&Body=" & "texte", vbMaximizedFocus SendKeys "%I" & "p" & "c:testtest.txt" & "~" & "{TAB 6}" & "^a" & "~" & "%s" End Sub PS: ne pas appeler depuis le fenêtre de code -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel http://www.ilyapa.net/baseExcel "Eric" a écrit dans le message de news:
Bonjour Pascal,
"Pascal Engelmajer" écrivait:
Sendkey n'existe pas en Access,
Juste une petite précision : SendKeys existe bien sous Access, ou plutôt VBA, et heureusement d'ailleurs ;-)
