Bonjour,
En d=E9but de mois j'avais pu int=E9grer gr=E2ce =E0 la=20
gentillesse de Raymond l'envoi automatique de emails=20
depuis Acces et =E7a donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre",=20
acFormatSNP, "C:\AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To =3D "mc@filorg.com"
.Subject =3D "Commandere=E7ue"
.TextBody =3D "Bonne jounn=E9e"
.AddAttachment ("C:\AppelOffre.snp")
.Send
End With
Set Message =3D Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui=20
dit Sortie en cours:
AppelOffre
fichier C:\AppelOffre.snp.
J'ai trouv=E9 sur le site http://www.mvps.org/accessfr/
'=C9limine le message "Printing"'.
Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre",=20
acFormatSNP, "C:\AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To =3D "mc@filorg.com"
.Subject =3D "Commandere=E7ue"
.TextBody =3D "Bonne jounn=E9e"
.AddAttachment ("C:\AppelOffre.snp")
.Send
End With
Set Message =3D Nothing
DoCmd.Close acForm, "Form2"
Le probl=E8me est le suivant:
Le message envoy=E9 par Access: AppelOffre
fichier C:\AppelOffre.snp.
est toujours activ=E9 et deplus le form2 souvre et reste=20
ouvert 3 =E0 4 secondes c'est =E0 dire le temps pendant lequel=20
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiqu=E9es http://www.mvps.org/accessfr/
en d=E9but de formulaire.
Pourquoi est-ce que =E7a ne fonctionne pas?
Mari-Claire
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
Mari-Claire
Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
Bonjour,
Il n'y a pas de base jointe.
Marie-Claire
-----Message d'origine-----
Essaie la base ci-jointe.
ST
"Marie-Claire" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 83a301c4d06b$9866f9a0$a601280a@phx.gbl...
Bonjour,
En début de mois j'avais pu intégrer grâce à la
gentillesse de Raymond l'envoi automatique de emails
depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui
dit Sortie en cours:
AppelOffre
fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"
Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et deplus le form2 souvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/
en début de formulaire.
Pourquoi est-ce que ça ne fonctionne pas?
Mari-Claire
Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
ST
désolé, elle a du être supprimé par le serveur.
J' essaie de retrouver l' endroit où je l' ai téléchargé.
ST
"Mari-Claire" a écrit dans le message de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
désolé, elle a du être supprimé par le serveur.
J' essaie de retrouver l' endroit où je l' ai téléchargé.
ST
"Mari-Claire" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 7f7901c4d144$5d3a4e20$a401280a@phx.gbl...
Bonjour,
Il n'y a pas de base jointe.
Marie-Claire
-----Message d'origine-----
Essaie la base ci-jointe.
ST
"Marie-Claire" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 83a301c4d06b$9866f9a0$a601280a@phx.gbl...
Bonjour,
En début de mois j'avais pu intégrer grâce à la
gentillesse de Raymond l'envoi automatique de emails
depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui
dit Sortie en cours:
AppelOffre
fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"
Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et deplus le form2 souvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/
en début de formulaire.
Pourquoi est-ce que ça ne fonctionne pas?
Mari-Claire
J' essaie de retrouver l' endroit où je l' ai téléchargé.
ST
"Mari-Claire" a écrit dans le message de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
ST
Voilà le lien : http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" a écrit dans le message de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
Voilà le lien : http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" <anonymous@discussions.microsoft.com> a écrit dans le message
de news: 7f7901c4d144$5d3a4e20$a401280a@phx.gbl...
Bonjour,
Il n'y a pas de base jointe.
Marie-Claire
-----Message d'origine-----
Essaie la base ci-jointe.
ST
"Marie-Claire" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 83a301c4d06b$9866f9a0$a601280a@phx.gbl...
Bonjour,
En début de mois j'avais pu intégrer grâce à la
gentillesse de Raymond l'envoi automatique de emails
depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui
dit Sortie en cours:
AppelOffre
fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"
Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et deplus le form2 souvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/
en début de formulaire.
Pourquoi est-ce que ça ne fonctionne pas?
Mari-Claire
Voilà le lien : http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" a écrit dans le message de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
Marie-Claire
Bonjour, C'est très gentil à vous mais mon problème n'est pas dans l'envoi du mail qui fonctionne parfaitement. Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail. C'est dans: On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents (.............) DoCmd.Close acForm, "Form2" Qui ne fonctionne pas.
Mon souhait est de cacher ou supprimer ou empécher le message: Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
Mari-Claire
-----Message d'origine----- Voilà le lien : http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" a écrit dans le message
de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
.
Bonjour,
C'est très gentil à vous mais mon problème n'est pas dans
l'envoi du mail qui fonctionne parfaitement.
Le problème c'est de supprimer le message q'Access ouvre
pour dire qu'il envoi le mail.
C'est dans:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
(.............)
DoCmd.Close acForm, "Form2"
Qui ne fonctionne pas.
Mon souhait est de cacher ou supprimer ou empécher le
message:
Sortie en cours:
AppelOffre
fichier C:AppelOffre.snp.
Mari-Claire
-----Message d'origine-----
Voilà le lien :
http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 7f7901c4d144$5d3a4e20$a401280a@phx.gbl...
Bonjour,
Il n'y a pas de base jointe.
Marie-Claire
-----Message d'origine-----
Essaie la base ci-jointe.
ST
"Marie-Claire" <anonymous@discussions.microsoft.com> a
écrit dans le message
de news: 83a301c4d06b$9866f9a0$a601280a@phx.gbl...
Bonjour,
En début de mois j'avais pu intégrer grâce à la
gentillesse de Raymond l'envoi automatique de emails
depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui
dit Sortie en cours:
AppelOffre
fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/
'Élimine le message "Printing"'.
Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next
DoCmd.OpenForm "Form2"
DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "C:AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = "mc@filorg.com"
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("C:AppelOffre.snp")
.Send
End With
Set Message = Nothing
DoCmd.Close acForm, "Form2"
Le problème est le suivant:
Le message envoyé par Access: AppelOffre
fichier C:AppelOffre.snp.
est toujours activé et deplus le form2 souvre et reste
ouvert 3 à 4 secondes c'est à dire le temps pendant
lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer()
Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/
en début de formulaire.
Pourquoi est-ce que ça ne fonctionne pas?
Mari-Claire
Bonjour, C'est très gentil à vous mais mon problème n'est pas dans l'envoi du mail qui fonctionne parfaitement. Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail. C'est dans: On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents (.............) DoCmd.Close acForm, "Form2" Qui ne fonctionne pas.
Mon souhait est de cacher ou supprimer ou empécher le message: Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
Mari-Claire
-----Message d'origine----- Voilà le lien : http://users.skynet.be/accesshome/outlook.htm#SendMailMAPI
ST
"Mari-Claire" a écrit dans le message
de news: 7f7901c4d144$5d3a4e20$ Bonjour, Il n'y a pas de base jointe. Marie-Claire
-----Message d'origine----- Essaie la base ci-jointe.
ST
"Marie-Claire" a écrit dans le message
de news: 83a301c4d06b$9866f9a0$ Bonjour, En début de mois j'avais pu intégrer grâce à la gentillesse de Raymond l'envoi automatique de emails depuis Acces et ça donne ce-ci:
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing
Je n'aime pas ni aucun des utilisateurs, la MsgBox qui dit Sortie en cours: AppelOffre fichier C:AppelOffre.snp.
J'ai trouvé sur le site http://www.mvps.org/accessfr/ 'Élimine le message "Printing"'. Et j'ai voulu l'adapter en faisant ce-ci:
On Error Resume Next DoCmd.OpenForm "Form2" DoEvents: DoEvents: DoEvents
DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "C:AppelOffre.snp" Dim Message As New CDO.Message With Message .To = "" .Subject = "Commandereçue" .TextBody = "Bonne jounnée" .AddAttachment ("C:AppelOffre.snp") .Send End With Set Message = Nothing DoCmd.Close acForm, "Form2"
Le problème est le suivant: Le message envoyé par Access: AppelOffre fichier C:AppelOffre.snp. est toujours activé et deplus le form2 souvre et reste ouvert 3 à 4 secondes c'est à dire le temps pendant lequel
la MsgBox est ouveverte.
Dans le form2 j'ai:
Private Sub Form_Timer() Call sWatchAccess(Application.hWndAccessApp)
End Sub
Interval minuterie: 300.
Et les fonctions indiquées http://www.mvps.org/accessfr/ en début de formulaire. Pourquoi est-ce que ça ne fonctionne pas? Mari-Claire
.
3stone
Bonjour,
"Marie-Claire" [...] Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Bonjour,
"Marie-Claire"
[...]
Le problème c'est de supprimer le message q'Access ouvre
pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
"Marie-Claire" [...] Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
Marie-Claire
Bonjour, Que dois-je regarder dans la méthode, est qu'il faut tenir compte de quelque chose qui n'est pas expliqué? Ou qu'est que j'aurai mal compris. Et que veut dire un formulaire (que vous ouvrez en mode caché), est-ce simplement cocher "Caché" dans les propriétés, par ce que c'est ce que j'ai fait. Merci pour votre précieuse aide. Marie-Claire
-----Message d'origine----- Bonjour,
"Marie-Claire" [...] Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
.
Bonjour,
Que dois-je regarder dans la méthode, est qu'il faut tenir
compte de quelque chose qui n'est pas expliqué?
Ou qu'est que j'aurai mal compris.
Et que veut dire un formulaire (que vous ouvrez en mode
caché), est-ce simplement cocher "Caché" dans les
propriétés, par ce que c'est ce que j'ai fait.
Merci pour votre précieuse aide.
Marie-Claire
-----Message d'origine-----
Bonjour,
"Marie-Claire"
[...]
Le problème c'est de supprimer le message q'Access ouvre
pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome
Bonjour, Que dois-je regarder dans la méthode, est qu'il faut tenir compte de quelque chose qui n'est pas expliqué? Ou qu'est que j'aurai mal compris. Et que veut dire un formulaire (que vous ouvrez en mode caché), est-ce simplement cocher "Caché" dans les propriétés, par ce que c'est ce que j'ai fait. Merci pour votre précieuse aide. Marie-Claire
-----Message d'origine----- Bonjour,
"Marie-Claire" [...] Le problème c'est de supprimer le message q'Access ouvre pour dire qu'il envoi le mail.
As tu regardé la méthode proposée ?
Car justement, elle permet d'envoyer *sans* message...
-- A+ Pierre (3stone) Access MVP ~~~~~~~~~~~~~~~~~~~~~~~ http://users.skynet.be/mpfa http://users.skynet.be/accesshome
