OVH Cloud OVH Cloud

Envoie de mail

1 réponse
Avatar
Ghislain
Bonjour a tous,

J'ai une base de donnees qui n'est pas en reseau et qui
permet a chaque utilisateur de remplir un formulaire et
de l'envoyer par mail, avec une piece jointe en format
Snapshot.
Voici ci-dessous le code que j'utilise pour cela ... je
cherche a remplacer le sujet "nouvelle commande" et le
nom de la piece jointe par le nom de la societe pour qui
la commande est passe (le champ societe est dans mon etat
biensur)
merci d avance de votre aide
ghislain


Private Sub CommandEmail_Click()
On Error GoTo CommandEmail_Click_Err

DoCmd.SendObject
acReport, "Rptcommandevehicle", "SnapshotFormat
(*.snp)", "quelqu1@email", "", "", "Nouvelle
Commande", "Veuillez trouver ci-joint une nouvelle
demande de vehicle. Cordialement", True, ""


CommandQuitEmail_Click_Exit:
Exit Sub

CommandQuitEmail_Click_Err:
MsgBox Error$
Resume CommandQuitEmail_Click_Exit

End Sub

1 réponse

Avatar
Raymond [mvp]
Bonjour.

ça devrait donner ça:
DoCmd.SendObject acReport, _
Me.Masociété, _
"SnapshotFormat(*.snp)", _
"", "", "", _
Me.Masociété, _
"Veuillez trouver....", True, ""

--
@+
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


"Ghislain" a écrit dans le message de
news:948801c478a2$767d6160$
Bonjour a tous,

J'ai une base de donnees qui n'est pas en reseau et qui
permet a chaque utilisateur de remplir un formulaire et
de l'envoyer par mail, avec une piece jointe en format
Snapshot.
Voici ci-dessous le code que j'utilise pour cela ... je
cherche a remplacer le sujet "nouvelle commande" et le
nom de la piece jointe par le nom de la societe pour qui
la commande est passe (le champ societe est dans mon etat
biensur)
merci d avance de votre aide
ghislain


Private Sub CommandEmail_Click()
On Error GoTo CommandEmail_Click_Err

DoCmd.SendObject
acReport, "Rptcommandevehicle", "SnapshotFormat
(*.snp)", "", "", "", "Nouvelle
Commande", "Veuillez trouver ci-joint une nouvelle
demande de vehicle. Cordialement", True, ""


CommandQuitEmail_Click_Exit:
Exit Sub

CommandQuitEmail_Click_Err:
MsgBox Error$
Resume CommandQuitEmail_Click_Exit

End Sub