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 de pièces par email depuis Access

Envoi de pièces par email depuis Access

10 réponses
Avatar
Marie-Claire
Bonjour,
Notre direction nous demande (pour mieux contr=F4ler notre=20
travail, je pense) de leur envoyer toutes les demandes=20
faites par les clients au fur et =E0 mesure qu'elles=20
arrivent.
Nous les saisissons dans un formulaire Access 2002.
J'essaie de faire quelque chose d'automarite pour envoyer=20
l'Etat g=E9n=E9r=E9 au moment ou l'on appui sur le=20
bouton "Valider COmmande" du formulaire de saisie, mais ou=20
=E7a ne marche ou j'ai plein de messages d'erreur Outlook.
Alors j'ai tout effac=E9 car le trime depuis un mois.
Est-ce quelqu'un a d=E9j=E0 fait ce genre de choses ou c'est=20
pas possible?
Mes connaissances se limitent =E0 faire une table, une=20
requ=EAtte, un formulaire une macro et un =E9tat.
Marie-Claire
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
Avatar
Raymond [mvp]
Bonjour.

tu trouveras des idées sur :
http://access.seneque.free.fr/envoi_message.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a écrit dans le message
de news: 224a01c4bcc9$456d35d0$
Bonjour,
Notre direction nous demande (pour mieux contrôler notre
travail, je pense) de leur envoyer toutes les demandes
faites par les clients au fur et à mesure qu'elles
arrivent.
Nous les saisissons dans un formulaire Access 2002.
J'essaie de faire quelque chose d'automarite pour envoyer
l'Etat généré au moment ou l'on appui sur le
bouton "Valider COmmande" du formulaire de saisie, mais ou
ça ne marche ou j'ai plein de messages d'erreur Outlook.
Alors j'ai tout effacé car le trime depuis un mois.
Est-ce quelqu'un a déjà fait ce genre de choses ou c'est
pas possible?
Mes connaissances se limitent à faire une table, une
requêtte, un formulaire une macro et un état.
Marie-Claire
Avatar
Marie-Claire
Bonjour,
Je vous remercie pour cette adresse.
J'ai copié le code dans un module en Public Function et
dans le bouton "Valider COmmande" du formulaire de saisie
j'ai mis
SendMessage "", "Section Viscose", "Commande
reçue", "[AppelOffre]", True
J'ai plusieurs questions à résoudre:
Comment éviter le message d'erreur d'Outlook "Un programme
essai d'accéder aux adresses de messagerie enregistrées
dans...
Deuxièment comment faire pour que l'Etat [AppelOffre],
vienne se placer dans les pièces jointes.
Et la dernière question c'est comment faire pour
qu'Outlook n'ouvre pas la page nouveau message à envoyer
et qu'il n'y ai pas de traces dans les éléments envoyés
d'Outlook.
Je pose beaucoup de questions mais comme je l'ai dis
précédemment je suis débutante.
Marie-Claire
-----Message d'origine-----
Bonjour.

tu trouveras des idées sur :
http://access.seneque.free.fr/envoi_message.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a
écrit dans le message

de news: 224a01c4bcc9$456d35d0$
Bonjour,
Notre direction nous demande (pour mieux contrôler notre
travail, je pense) de leur envoyer toutes les demandes
faites par les clients au fur et à mesure qu'elles
arrivent.
Nous les saisissons dans un formulaire Access 2002.
J'essaie de faire quelque chose d'automarite pour envoyer
l'Etat généré au moment ou l'on appui sur le
bouton "Valider COmmande" du formulaire de saisie, mais ou
ça ne marche ou j'ai plein de messages d'erreur Outlook.
Alors j'ai tout effacé car le trime depuis un mois.
Est-ce quelqu'un a déjà fait ce genre de choses ou c'est
pas possible?
Mes connaissances se limitent à faire une table, une
requêtte, un formulaire une macro et un état.
Marie-Claire


.



Avatar
Raymond [mvp]
Je crois que la dernière question va conditionner la méthode: si tu ne veux
pas que le message apparaisse dans les éléments OutLook, il ne faut pas
passer par outlook pour l'envoyer mais par CDO. Je te donne l'adresse du
site de 3stone qui donne toutes les infos pour un envoi direct sans passer
par outlook.
http://users.skynet.be/accesshome/outlook.htm et plus particulièrement :
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a écrit dans le message
de news: 1bcd01c4bcec$6900f270$
Bonjour,
Je vous remercie pour cette adresse.
J'ai copié le code dans un module en Public Function et
dans le bouton "Valider COmmande" du formulaire de saisie
j'ai mis
SendMessage "", "Section Viscose", "Commande
reçue", "[AppelOffre]", True
J'ai plusieurs questions à résoudre:
Comment éviter le message d'erreur d'Outlook "Un programme
essai d'accéder aux adresses de messagerie enregistrées
dans...
Deuxièment comment faire pour que l'Etat [AppelOffre],
vienne se placer dans les pièces jointes.
Et la dernière question c'est comment faire pour
qu'Outlook n'ouvre pas la page nouveau message à envoyer
et qu'il n'y ai pas de traces dans les éléments envoyés
d'Outlook.
Je pose beaucoup de questions mais comme je l'ai dis
précédemment je suis débutante.
Marie-Claire
Avatar
Marie-Claire
Bonjour,
Je vous remercie pour votre rapidité.
Pouriez-vous m'aider à régler le problème de la pièce
jointe.
J'ai mis comme ça mais je sais que c'est faut:

Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("[AppelOffre]")
.Send
End With
Set Message = Nothing

[AppelOffre] est l'Etat à envoyer et sachant que cet Etat
est dans la base même.
Je vous remercie de mettre vos connaissances à ma
disposition.
Marie-Claire
-----Message d'origine-----
Je crois que la dernière question va conditionner la
méthode: si tu ne veux

pas que le message apparaisse dans les éléments OutLook,
il ne faut pas

passer par outlook pour l'envoyer mais par CDO. Je te
donne l'adresse du

site de 3stone qui donne toutes les infos pour un envoi
direct sans passer

par outlook.
http://users.skynet.be/accesshome/outlook.htm et plus
particulièrement :

http://users.skynet.be/accesshome/outlook.htm#SendMailCDO

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a
écrit dans le message

de news: 1bcd01c4bcec$6900f270$
Bonjour,
Je vous remercie pour cette adresse.
J'ai copié le code dans un module en Public Function et
dans le bouton "Valider COmmande" du formulaire de saisie
j'ai mis
SendMessage "", "Section Viscose", "Commande
reçue", "[AppelOffre]", True
J'ai plusieurs questions à résoudre:
Comment éviter le message d'erreur d'Outlook "Un programme
essai d'accéder aux adresses de messagerie enregistrées
dans...
Deuxièment comment faire pour que l'Etat [AppelOffre],
vienne se placer dans les pièces jointes.
Et la dernière question c'est comment faire pour
qu'Outlook n'ouvre pas la page nouveau message à envoyer
et qu'il n'y ai pas de traces dans les éléments envoyés
d'Outlook.
Je pose beaucoup de questions mais comme je l'ai dis
précédemment je suis débutante.
Marie-Claire


.



Avatar
Raymond [mvp]
comme indiqué sur le site la fonction est:
.AddAttachment ("c:cheminfichier.ext")
donc le nom d'un fichier existant sur disque.
avant de lancer le message il faut créer le fichier par la fonction OutputTo
par exemple.

DoCmd.OutputTo acOutputReport, "AppelOffre", acFormatSNP, "AppelOffre.snp"
Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("AppelOffre.snp")
.Send
End With
Set Message = Nothing

c'est un exemple bien sûr.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a écrit dans le message
de news: 1bf301c4bcf2$cbb54aa0$
Bonjour,
Je vous remercie pour votre rapidité.
Pouriez-vous m'aider à régler le problème de la pièce
jointe.
J'ai mis comme ça mais je sais que c'est faut:

Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("[AppelOffre]")
.Send
End With
Set Message = Nothing

[AppelOffre] est l'Etat à envoyer et sachant que cet Etat
est dans la base même.
Je vous remercie de mettre vos connaissances à ma
disposition.
Marie-Claire
Avatar
Marie-Claire
Bonjour,
Cet exemple me plaît bien mais j'ai une erreur qui s'est
produite et l'erreur dit ce-ci:

Erreur d'exécution '-2146697203 (800c000d)':
Le protocole spécifié est inconnu.

Je ne sais pas ce que c'est.
Pourtant la référence Microsoft CDO for Exchange 2000
librairy est cochée
La référence Microsoft CDO for Windows 2000 librairy n'est
pas dans la liste des références.
Et j'ai fais du copié-collé de votre formule puisque même
l'adresse e-mail que vous avez mis est juste.
J'ai vérifié et SnapShot Viewer est installé dans
l'ordinateur, car j'ai pensé que l'erreur pouvait venir de
là.
Si vous avez encore la gentillesse de m'aider?
Marie-Claire
-----Message d'origine-----
comme indiqué sur le site la fonction est:
..AddAttachment ("c:cheminfichier.ext")
donc le nom d'un fichier existant sur disque.
avant de lancer le message il faut créer le fichier par
la fonction OutputTo

par exemple.

DoCmd.OutputTo acOutputReport, "AppelOffre",
acFormatSNP, "AppelOffre.snp"

Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("AppelOffre.snp")
.Send
End With
Set Message = Nothing

c'est un exemple bien sûr.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a
écrit dans le message

de news: 1bf301c4bcf2$cbb54aa0$
Bonjour,
Je vous remercie pour votre rapidité.
Pouriez-vous m'aider à régler le problème de la pièce
jointe.
J'ai mis comme ça mais je sais que c'est faut:

Dim Message As New CDO.Message
With Message
.To = ""
.Subject = "Commandereçue"
.TextBody = "Bonne jounnée"
.AddAttachment ("[AppelOffre]")
.Send
End With
Set Message = Nothing

[AppelOffre] est l'Etat à envoyer et sachant que cet Etat
est dans la base même.
Je vous remercie de mettre vos connaissances à ma
disposition.
Marie-Claire


.



Avatar
Raymond [mvp]
il faut indiquer le chemin complet de la pièce jointe.
.AddAttachment ("C:Documents and SettingsRaymondMes
documentsetat1.snp")
par exemple

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a écrit dans le message
de news: 1b1c01c4bcf9$c8789200$
Bonjour,
Cet exemple me plaît bien mais j'ai une erreur qui s'est
produite et l'erreur dit ce-ci:

Erreur d'exécution '-2146697203 (800c000d)':
Le protocole spécifié est inconnu.

Je ne sais pas ce que c'est.
Pourtant la référence Microsoft CDO for Exchange 2000
librairy est cochée
La référence Microsoft CDO for Windows 2000 librairy n'est
pas dans la liste des références.
Et j'ai fais du copié-collé de votre formule puisque même
l'adresse e-mail que vous avez mis est juste.
J'ai vérifié et SnapShot Viewer est installé dans
l'ordinateur, car j'ai pensé que l'erreur pouvait venir de
là.
Si vous avez encore la gentillesse de m'aider?
Marie-Claire
Avatar
Mari-Claire
Bonjour,
J'ai fait comme indiqué dans votre précédent message,
c'est à dire que je lui est indiqué le chemin.
L'e-mail est bien parti mais sans pièce jointe et la pièce
jointe je l'ai trouvée dans le dossier Mes Documents,
d'ailleurs je ne sais pas quel est le problème avec Snap
Viewer mais l'Etat avait le format de 2 timbres poste dans
un coin d'une page A4.
Mari-Claire
-----Message d'origine-----
il faut indiquer le chemin complet de la pièce jointe.
.AddAttachment ("C:Documents and
SettingsRaymondMes

documentsetat1.snp")
par exemple

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marie-Claire" a
écrit dans le message

de news: 1b1c01c4bcf9$c8789200$
Bonjour,
Cet exemple me plaît bien mais j'ai une erreur qui s'est
produite et l'erreur dit ce-ci:

Erreur d'exécution '-2146697203 (800c000d)':
Le protocole spécifié est inconnu.

Je ne sais pas ce que c'est.
Pourtant la référence Microsoft CDO for Exchange 2000
librairy est cochée
La référence Microsoft CDO for Windows 2000 librairy n'est
pas dans la liste des références.
Et j'ai fais du copié-collé de votre formule puisque même
l'adresse e-mail que vous avez mis est juste.
J'ai vérifié et SnapShot Viewer est installé dans
l'ordinateur, car j'ai pensé que l'erreur pouvait venir de
là.
Si vous avez encore la gentillesse de m'aider?
Marie-Claire


.



Avatar
Raymond [mvp]
qu'est-ce qu'elle me dit ?

le snap devait se trouver dans le même répertoire que la base. si tu veux tu
peux indiquer un chemin dans le outputto et le même en pièce jointe.
normalement tu aurais du avoir la même erreur qu'avant si tu ne trouvais pas
la pièce jointe. fais un essais en indiquant le chemin complet partout.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Mari-Claire" a écrit dans le message
de news: 1b8e01c4bd09$b3eaa070$
Bonjour,
J'ai fait comme indiqué dans votre précédent message,
c'est à dire que je lui est indiqué le chemin.
L'e-mail est bien parti mais sans pièce jointe et la pièce
jointe je l'ai trouvée dans le dossier Mes Documents,
d'ailleurs je ne sais pas quel est le problème avec Snap
Viewer mais l'Etat avait le format de 2 timbres poste dans
un coin d'une page A4.
Mari-Claire
Avatar
Marie-Claire
Bonjour,
Je dis sûrement des b^tises mais ça ne fait que depuis cet
été que je suis sur Access.
Je n'ai pas compris votre réponse:
Que veut dire -le snap devait se trouver dans le même
répertoire que la base?
-tu peux indiquer un chemin dans le
outputto et le même en pièce jointe?
-fais un essais en indiquant le chemin
complet partout?
Je suis désolée mais là je donne ma langue au chat.
Marie-Claire
-----Message d'origine-----
qu'est-ce qu'elle me dit ?

le snap devait se trouver dans le même répertoire que la
base. si tu veux tu

peux indiquer un chemin dans le outputto et le même en
pièce jointe.

normalement tu aurais du avoir la même erreur qu'avant si
tu ne trouvais pas

la pièce jointe. fais un essais en indiquant le chemin
complet partout.


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Mari-Claire" a
écrit dans le message

de news: 1b8e01c4bd09$b3eaa070$
Bonjour,
J'ai fait comme indiqué dans votre précédent message,
c'est à dire que je lui est indiqué le chemin.
L'e-mail est bien parti mais sans pièce jointe et la pièce
jointe je l'ai trouvée dans le dossier Mes Documents,
d'ailleurs je ne sais pas quel est le problème avec Snap
Viewer mais l'Etat avait le format de 2 timbres poste dans
un coin d'une page A4.
Mari-Claire


.