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 Envoi par mail

Envoi par mail

8 réponses
Avatar
Luis
Bonjour,
Depuis un formulaire j'envoi des mails avec sur clic:

Private Sub Cmd_mail_Click()

Dim x
Dim y
x = fHandleFile("mailto:" & Me![E-MAIL], WIN_NORMAL)
y = fHandleFile("Subject:" & Me![txtMailSubject], WIN_NORMAL)
End Sub

Outlook s'ouvre bien avec l'adresse email, mais pas le sujet.
Que dois-je modifier dans le code? s'il-vous-plaît.
Luis
Signaler un problème avec ce contenu

8 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
Gafish
Luis wrote:
Bonjour,


Bonjour,

Depuis un formulaire j'envoi des mails avec sur clic:

Private Sub Cmd_mail_Click()

Dim x
Dim y
x = fHandleFile("mailto:" & Me![E-MAIL], WIN_NORMAL)
y = fHandleFile("Subject:" & Me![txtMailSubject], WIN_NORMAL)
End Sub

Outlook s'ouvre bien avec l'adresse email, mais pas le sujet.
Que dois-je modifier dans le code? s'il-vous-plaît.


C'est normal, la fonction fhandleFile si c'est celle à laquelle je pense
sert à ouvrir une application, ca marche donc bien pour ouvrir un mail mais
pas pour le sujet.
Pour tout ce qui est envoi de mail, refere toi à cette adresse :
http://users.skynet.be/accesshome/ah_outlook.htm

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Luis
Bonjour,
J'ai été sur le site, le problème est que ces solutions ouvrent la boîte de
dialogue d'outlook pour prévenir de l'envoi et je veux éviter ça.

Merci tout de même.
Luis


Luis wrote:
Bonjour,


Bonjour,

Depuis un formulaire j'envoi des mails avec sur clic:

Private Sub Cmd_mail_Click()

Dim x
Dim y
x = fHandleFile("mailto:" & Me![E-MAIL], WIN_NORMAL)
y = fHandleFile("Subject:" & Me![txtMailSubject], WIN_NORMAL)
End Sub

Outlook s'ouvre bien avec l'adresse email, mais pas le sujet.
Que dois-je modifier dans le code? s'il-vous-plaît.


C'est normal, la fonction fhandleFile si c'est celle à laquelle je pense
sert à ouvrir une application, ca marche donc bien pour ouvrir un mail mais
pas pour le sujet.
Pour tout ce qui est envoi de mail, refere toi à cette adresse :
http://users.skynet.be/accesshome/ah_outlook.htm

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
Gafish
Luis wrote:
Bonjour,
J'ai été sur le site, le problème est que ces solutions ouvrent la
boîte de dialogue d'outlook pour prévenir de l'envoi et je veux
éviter ça.


Dac, tu aurais du dire tout de suite que c'était cela qui te génait. Tu as
un logiciel :
http://www.contextmagic.com/express-clickyes/
ClickYes qui va se charger de facon transparente de répondre "oui" à ta
place.
Je l'utilise chez un client pour une application, tu as juste à le
paramétrer la première fois et après tu l'oublies, ca fonctionne très bien

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Luis
Bonjour Arnaud,
Je te remercie beaucoup et je vais tout de suite le télécharger.
Luis


Luis wrote:
Bonjour,
J'ai été sur le site, le problème est que ces solutions ouvrent la
boîte de dialogue d'outlook pour prévenir de l'envoi et je veux
éviter ça.


Dac, tu aurais du dire tout de suite que c'était cela qui te génait. Tu as
un logiciel :
http://www.contextmagic.com/express-clickyes/
ClickYes qui va se charger de facon transparente de répondre "oui" à ta
place.
Je l'utilise chez un client pour une application, tu as juste à le
paramétrer la première fois et après tu l'oublies, ca fonctionne très bien

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






Avatar
JièL Goubert
Bonjoir(c) Gafish

Le 07/07/2005 17:16 vous avez écrit ceci :
Luis wrote:

Bonjour,
J'ai été sur le site, le problème est que ces solutions ouvrent la
boîte de dialogue d'outlook pour prévenir de l'envoi et je veux
éviter ça.



http://www.contextmagic.com/express-clickyes/
ClickYes qui va se charger de facon transparente de répondre "oui" à ta
place.


Il me semblait qu'Anor avait justement créé des macros qui permettaient
d'éviter l'utilisation de clickyes... on m'aurait menti à l'insu de mon
plein gré ?

Lui, avez vous testez les 3 solutions d'envois (SendMail) ?

Je l'utilise chez un client pour une application, tu as juste à le
paramétrer la première fois et après tu l'oublies, ca fonctionne très bien


Heum... et si le client récupère un virus qui utilise son carnet d'adresse
pour s'auto envoyer ?...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/


Avatar
Gafish
"JièL Goubert" a écrit dans le
message de news:O1y%
Il me semblait qu'Anor avait justement créé des macros qui permettaient
d'éviter l'utilisation de clickyes... on m'aurait menti à l'insu de mon
plein gré ?


Oui, en passant par CDO on évite.

Heum... et si le client récupère un virus qui utilise son carnet d'adresse
pour s'auto envoyer ?...


Oui, c'est le risque bien sûr, mais dans le cas qui m'interesse le risque
est limité car le carnet d'adresse de la machine concernée est vide.

Avatar
Bonjour,

"Gafish"

| Oui, en passant par CDO on évite.

Merci d'avoir confirmé Gafish ;-)

Mais qui en doutait ?
http://groups.google.fr/group/microsoft.public.fr.access/browse_frm/thread/24987d09c0723eec/4cb463d7b25cd0b4#4cb463d7b25cd0b4
http://groups.google.fr/group/microsoft.public.fr.access/browse_frm/thread/e82821ad2566edc8/f44c6c63241f1d25#f44c6c63241f1d25

;-)))))
hi hi hi
Arnaud
Avatar
Luis
Bonjour,
Effectivement vous avez raison le Click Yes n'est pas une solution assez sûre.
CDO a l'inconvénient de ne pas laisser de trace d'envoi et d'autre part il
faut Windows 2000 minimum.

C'est pour cette raison que j'aime bien cette fonction et j'aimerai
l'adapter pour mettre l'Objet du mail.

**************************************************************
Private Declare Function apiShellExecute 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

Public Const WIN_NORMAL = 1 'Ouverture Normale
Public Const WIN_MAX = 2 'Ouverture Maximized
Public Const WIN_MIN = 3 'Ouverture Minimized

'***Codes d'erreurs***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&


Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String

lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)

If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:

varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
& stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
*******************************************************
Merci.

Luis


Bonjour,

"Gafish"

| Oui, en passant par CDO on évite.

Merci d'avoir confirmé Gafish ;-)

Mais qui en doutait ?
http://groups.google.fr/group/microsoft.public.fr.access/browse_frm/thread/24987d09c0723eec/4cb463d7b25cd0b4#4cb463d7b25cd0b4
http://groups.google.fr/group/microsoft.public.fr.access/browse_frm/thread/e82821ad2566edc8/f44c6c63241f1d25#f44c6c63241f1d25

;-)))))
hi hi hi
Arnaud