Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access ACCESS & OUTLOOK EXPRESS

ACCESS & OUTLOOK EXPRESS

13 réponses
Avatar
DJP
Bonjour =E0 tous,

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 ...).

Merci aux "PRO" de bonne volont=E9

DJP
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Pascal Engelmajer
Salut,
une piste :
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus
SendKeys "%I" & "p" & Rep & "~" & "{TAB 6}" & "^a" & "~" & "%s"

?
--
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
"DJP" a écrit dans le message de news:
10e6b01c440dc$7ae11290$
Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP
Avatar
Buddy
Salut
Pour envoyer un mail j'utilise cette méthode
strDestinataires = "mailto:" & strDestinataires
Application.FollowHyperlink strDestinataires, , True

Ouala
Bye
Buddy

"DJP" a écrit dans le message de
news:10e6b01c440dc$7ae11290$
Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP
Avatar
DJP
Merci pour votre suggestion que j'aimerais tester ...
Toutefois, je ne comprends pas [SendKeys "%I" & "p" & Rep
& "~" & "{TAB 6}" & "^a" & "~" & "%s"]

Sans vouloir abuser de votre temps, pouvez-vous m'éclairer

Merci encore

DJP
Avatar
DJP
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
Avatar
Buddy
Quel message d'erreur tu reçois ?
Buddy

"DJP" a écrit dans le message de
news:10e6b01c440dc$7ae11290$
Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP
Avatar
Pascal Engelmajer
--
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
"DJP" a écrit dans le message de news:
10c4b01c440e2$8efedb30$
Merci pour votre suggestion que j'aimerais tester ...
Toutefois, je ne comprends pas [SendKeys "%I" & "p" & Rep
& "~" & "{TAB 6}" & "^a" & "~" & "%s"]

Sans vouloir abuser de votre temps, pouvez-vous m'éclairer

Merci encore

DJP
Avatar
Pascal Engelmajer
--
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
"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
une piste :
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus
SendKeys "%I" & "p" & Rep & "~" & "{TAB 6}" & "^a" & "~" & "%s"

?
--
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
"DJP" a écrit dans le message de
news:

10e6b01c440dc$7ae11290$
Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP








Avatar
Eric
"DJP" écrivait

Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP

Bonjour,


la commande suivante effectue l'envoi sans générer d'erreur:
Dim custMail As String
custMail = ""
DoCmd.SendObject acSendNoObject, , , custMail, , , "Test", "Sujet à définir
...", True

Es-tu sur que la variable custMail est bien définie ?
Zone Alarm ne bloquerait-il pas ?

Config: WinXPpro, Access2k, NIS2004 donc NAV2004, OE 6, Pop-up Stoppées

A+
Eric

Avatar
Pascal Engelmajer
Salut,
désolé je me croyais sur le forum Excel
Sendkey n'existe pas en Access,
il faut utiliser la Fonction keybd_event

Option Compare Database
Option Explicit
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
' Alt 18
' Shift 16

' dwFlags (le drapeau) :
Const VK_ALT = 18 'alt
' ---Envoie de la séquence de touche---

Sub test()
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & "" & _
"?subject=" & "sujet: sendkey" & _
"&Body=" & "texte à envoyer" & 3, vbMaximizedFocus
Call keybd_event(VK_ALT, 0, 0, 0)
Call keybd_event(Asc("S"), 0, 0, 0)
End Sub
--
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
"DJP" a écrit dans le message de news:
10c4b01c440e2$8efedb30$
Merci pour votre suggestion que j'aimerais tester ...
Toutefois, je ne comprends pas [SendKeys "%I" & "p" & Rep
& "~" & "{TAB 6}" & "^a" & "~" & "%s"]

Sans vouloir abuser de votre temps, pouvez-vous m'éclairer

Merci encore

DJP
Avatar
Pascal Engelmajer
Salut,
il ont été envoyés involontairement , par mon test de send key...
--
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
"Pascal Engelmajer" a écrit dans le
message de news: #


--
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
"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
une piste :
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte & ", 3", vbMaximizedFocus
SendKeys "%I" & "p" & Rep & "~" & "{TAB 6}" & "^a" & "~" & "%s"

?
--
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
"DJP" a écrit dans le message de
news:

10e6b01c440dc$7ae11290$
Bonjour à tous,

Je souhaite expédier un mail à partir d'ACCESS? ... Ce que
j'ai déjà fait il y a longtemps ... Mais le problème est
que cela ne marche plus ; la seulle chose que je parvienne
à faire c'est d'ouvrir OE (RetVal = Shell("C:Program
FilesOutlook Expressmsimn.exe", 1). Mais <
DoCmd.SendObject acSendNoObject, , , custMail, , , "Enter
object ...", "Your text ...", True > retourne un message
d'erreur de quoi cela peut-il venir ? (ma config : W2KPRO -
IE6/OE6 SP1 - NORTON 2004 - ZONE ALARM PRO - POPUP
STOPPER ...).

Merci aux "PRO" de bonne volonté

DJP












1 2