envoie de mail automatique (access) - SQL/NoSQL - Programmation
MarshPosté le 16-07-2004 à 13:06:56
je eu envoie un mail en allant chercher l'adresse dans un champ de mon formulaire (plus simple que d'aller le chercher dans la table ) donc j'ai fais un module mais sa marche pas. si vous pouvez me dire comment regler le probléme, je sais plus
Function envoie_mail(adresse) On Error GoTo envoie_mail_Err
Dim adresse As String adresse = AdresseMail
DoCmd.SendObject acReport, "reception", "MS-DOSText(*.txt)", "adresse", "", "", "commande recu", "nous venons de recevoir votre commande", False, "" Exit Function
Marsh Posté le 16-07-2004 à 13:06:56
je eu envoie un mail en allant chercher l'adresse dans un champ de mon formulaire (plus simple que d'aller le chercher dans la table )
donc j'ai fais un module mais sa marche pas. si vous pouvez me dire comment regler le probléme, je sais plus
Function envoie_mail(adresse)
On Error GoTo envoie_mail_Err
Dim adresse As String
adresse = AdresseMail
DoCmd.SendObject acReport, "reception", "MS-DOSText(*.txt)", "adresse", "", "", "commande recu", "nous venons de recevoir votre commande", False, ""
Exit Function
envoie_mail_Exit:
Exit Function
envoie_mail_Err:
MsgBox Error$
Resume envoie_mail_Exit
End Function
j'ai un message d'erreur :
l'objet ne contient pas d'objet d'automtisation 'adresse'