1-J'ai "imprim=E9" un =E9tat avec PDFCREATOR dans "p:\mes=20
documents\Impression Bon d'achat.pdf"
2-J'ai coch=E9 (dans un module menu Outils...R=E9f=E9rences) la
r=E9f=E9rence CDO ? (Microsoft CDO.....)"
3- envoie du fichier par
Sub courriel()
Dim Message As New CDO.Message
With Message 'Envoi du message
.To =3D "ordino@abc.com" 'Destinataire
.Subject =3D "PO:" & Forms![Commande]!
[PO] '"Booklets sending list"
.TextBody =3D "Test courriel fichier pdf" 'corps
.AddAttachment ("p:\mes documents\Impression Bon=20
d'achat.pdf") '(Nom du Fichier)
.Send
End With
Set Message =3D Nothing
End Sub
4-=C0 la commande:
.send =20
je re=E7ois :
"La valeur de configuration 'SendUsing' est non valide"
5-Le mot 'SendUsing' est inconnu sur le site
6-J'ai rien trouv=E9 d'int=E9ressant sur le net
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
Gafish
Normalement tu as plusieurs réference CDO. Premièrement essaie les les unes après les autres. Sinon je te conseille la lecture suivante concernant CDO : http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
Arnaud
"ORDINO" a écrit dans le message de news:3fae01c4a0d7$dfec13a0$ 1-J'ai "imprimé" un état avec PDFCREATOR dans "p:mes documentsImpression Bon d'achat.pdf" 2-J'ai coché (dans un module menu Outils...Références) la référence CDO ? (Microsoft CDO.....)"
3- envoie du fichier par Sub courriel() Dim Message As New CDO.Message With Message 'Envoi du message .To = "" 'Destinataire .Subject = "PO:" & Forms![Commande]! [PO] '"Booklets sending list" .TextBody = "Test courriel fichier pdf" 'corps .AddAttachment ("p:mes documentsImpression Bon d'achat.pdf") '(Nom du Fichier) .Send End With Set Message = Nothing End Sub
4-À la commande: .send je reçois : "La valeur de configuration 'SendUsing' est non valide" 5-Le mot 'SendUsing' est inconnu sur le site 6-J'ai rien trouvé d'intéressant sur le net
7-Un utilisateur du CDO peut-il m'aider?
Ordino
Normalement tu as plusieurs réference CDO. Premièrement essaie les les unes
après les autres.
Sinon je te conseille la lecture suivante concernant CDO :
http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
Arnaud
"ORDINO" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:3fae01c4a0d7$dfec13a0$a501280a@phx.gbl...
1-J'ai "imprimé" un état avec PDFCREATOR dans "p:mes
documentsImpression Bon d'achat.pdf"
2-J'ai coché (dans un module menu Outils...Références) la
référence CDO ? (Microsoft CDO.....)"
3- envoie du fichier par
Sub courriel()
Dim Message As New CDO.Message
With Message 'Envoi du message
.To = "ordino@abc.com" 'Destinataire
.Subject = "PO:" & Forms![Commande]!
[PO] '"Booklets sending list"
.TextBody = "Test courriel fichier pdf" 'corps
.AddAttachment ("p:mes documentsImpression Bon
d'achat.pdf") '(Nom du Fichier)
.Send
End With
Set Message = Nothing
End Sub
4-À la commande:
.send
je reçois :
"La valeur de configuration 'SendUsing' est non valide"
5-Le mot 'SendUsing' est inconnu sur le site
6-J'ai rien trouvé d'intéressant sur le net
Normalement tu as plusieurs réference CDO. Premièrement essaie les les unes après les autres. Sinon je te conseille la lecture suivante concernant CDO : http://users.skynet.be/accesshome/outlook.htm#SendMailCDO
Arnaud
"ORDINO" a écrit dans le message de news:3fae01c4a0d7$dfec13a0$ 1-J'ai "imprimé" un état avec PDFCREATOR dans "p:mes documentsImpression Bon d'achat.pdf" 2-J'ai coché (dans un module menu Outils...Références) la référence CDO ? (Microsoft CDO.....)"
3- envoie du fichier par Sub courriel() Dim Message As New CDO.Message With Message 'Envoi du message .To = "" 'Destinataire .Subject = "PO:" & Forms![Commande]! [PO] '"Booklets sending list" .TextBody = "Test courriel fichier pdf" 'corps .AddAttachment ("p:mes documentsImpression Bon d'achat.pdf") '(Nom du Fichier) .Send End With Set Message = Nothing End Sub
4-À la commande: .send je reçois : "La valeur de configuration 'SendUsing' est non valide" 5-Le mot 'SendUsing' est inconnu sur le site 6-J'ai rien trouvé d'intéressant sur le net
