Mail avec pièce jointe

Le
Bruno Frisque
Bonjour le groupe,

Un form doit expédier une pièce jointe.

Ai placé de code de 3Stone suivant :
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
'ok les 2 sont cochées
Dim Message As New CDO.Message
With Message
.From = "frisque@datamovers.be"
.To = "frisque@datamovers.be"
.Subject = "sujet du mail"
.TextBody = "Le corps du message"
.AddAttachment ("c:datatension.jpg")
.Send
End With

Le message d'erreur Access est : ' "the transport failed to connect to the
server"

J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la raison
??

D'avance merci !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #6362581
Salut,

"Bruno Frisque"
| Un form doit expédier une pièce jointe.
|
| Ai placé de code de 3Stone suivant :
| 'Déclaration précoce ("Early Binding")
| 'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
| ' ou Microsoft CDO for Windows 2000 librairy
| 'ok les 2 sont cochées


Les deux ?


| Dim Message As New CDO.Message
| With Message
| .From = ""
| .To = ""
| .Subject = "sujet du mail"
| .TextBody = "Le corps du message"
| .AddAttachment ("c:datatension.jpg")
| .Send
| End With


Je fait l'essai en remplacant simplement le .TO par mon émail et...
dans les 5 secondes je recois un émail de ;-))


| Le message d'erreur Access est : ' "the transport failed to connect to the
| server"
|
| J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la raison
| ??

Non, j'ai également OE comme client émail...

et j'utilise :
C:WINDOWSsystem32cdosys.dll
"Microsoft CDO for Windows 2000 Library"

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Bruno Frisque
Le #6362521
ok Merci réponse !

Je teste çà tmw.

Encore merci
à +
Bruno

"3stone" news:
Salut,

"Bruno Frisque"
| Un form doit expédier une pièce jointe.
|
| Ai placé de code de 3Stone suivant :
| 'Déclaration précoce ("Early Binding")
| 'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
| ' ou Microsoft CDO for Windows 2000 librairy
| 'ok les 2 sont cochées


Les deux ?


| Dim Message As New CDO.Message
| With Message
| .From = ""
| .To = ""
| .Subject = "sujet du mail"
| .TextBody = "Le corps du message"
| .AddAttachment ("c:datatension.jpg")
| .Send
| End With


Je fait l'essai en remplacant simplement le .TO par mon émail et...
dans les 5 secondes je recois un émail de ;-))


| Le message d'erreur Access est : ' "the transport failed to connect to
the
| server"
|
| J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la
raison
| ??

Non, j'ai également OE comme client émail...

et j'utilise :
C:WINDOWSsystem32cdosys.dll
"Microsoft CDO for Windows 2000 Library"

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Bruno Frisque
Le #6362501
C'est OK !!

La raison était : il FAUT être connecté AVANT le lancement de la proc.
Question : comment handler le Access err msg "transport cannot find de
serveur" par > "veuillez-vous connecter svp .."

Mais c'est génial effectivement, mail reçu pil-poil immédiatement et est
bien dans le Sent Items de OE !

Question supplémentaire :
Comment "activer" la fenêtre OE, AVANT le .Send ??
(un truc comme .MailClient Show ???)
Cela permettrait aux clients de retrouver leur address book..... comme de se
"rassurer" du contenu avant l'envoi effectif.
(il s'agit ici pour les communes, d'expédier très officiellement des actes
état civil en ligne....)

Encore tout grand merci à 3 Stone !!



"Bruno Frisque" news:%23AeB%
ok Merci réponse !

Je teste çà tmw.

Encore merci
à +
Bruno

"3stone" news:
Salut,

"Bruno Frisque"
| Un form doit expédier une pièce jointe.
|
| Ai placé de code de 3Stone suivant :
| 'Déclaration précoce ("Early Binding")
| 'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
| ' ou Microsoft CDO for Windows 2000 librairy
| 'ok les 2 sont cochées


Les deux ?


| Dim Message As New CDO.Message
| With Message
| .From = ""
| .To = ""
| .Subject = "sujet du mail"
| .TextBody = "Le corps du message"
| .AddAttachment ("c:datatension.jpg")
| .Send
| End With


Je fait l'essai en remplacant simplement le .TO par mon émail et...
dans les 5 secondes je recois un émail de ;-))


| Le message d'erreur Access est : ' "the transport failed to connect to
the
| server"
|
| J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la
raison
| ??

Non, j'ai également OE comme client émail...

et j'utilise :
C:WINDOWSsystem32cdosys.dll
"Microsoft CDO for Windows 2000 Library"

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)








Bruno Frisque
Le #6362471
Petite correction :
Le mail est bien expédié mais n'est PAS dans le sent items.
Comment être sur qu'il est bien parti ?

à plus


"Bruno Frisque" news:%
C'est OK !!

La raison était : il FAUT être connecté AVANT le lancement de la proc.
Question : comment handler le Access err msg "transport cannot find de
serveur" par > "veuillez-vous connecter svp .."

Mais c'est génial effectivement, mail reçu pil-poil immédiatement et est
bien dans le Sent Items de OE !

Question supplémentaire :
Comment "activer" la fenêtre OE, AVANT le .Send ??
(un truc comme .MailClient Show ???)
Cela permettrait aux clients de retrouver leur address book..... comme de
se "rassurer" du contenu avant l'envoi effectif.
(il s'agit ici pour les communes, d'expédier très officiellement des actes
état civil en ligne....)

Encore tout grand merci à 3 Stone !!



"Bruno Frisque" news:%23AeB%
ok Merci réponse !

Je teste çà tmw.

Encore merci
à +
Bruno

"3stone" news:
Salut,

"Bruno Frisque"
| Un form doit expédier une pièce jointe.
|
| Ai placé de code de 3Stone suivant :
| 'Déclaration précoce ("Early Binding")
| 'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
| ' ou Microsoft CDO for Windows 2000 librairy
| 'ok les 2 sont cochées


Les deux ?


| Dim Message As New CDO.Message
| With Message
| .From = ""
| .To = ""
| .Subject = "sujet du mail"
| .TextBody = "Le corps du message"
| .AddAttachment ("c:datatension.jpg")
| .Send
| End With


Je fait l'essai en remplacant simplement le .TO par mon émail et...
dans les 5 secondes je recois un émail de ;-))


| Le message d'erreur Access est : ' "the transport failed to connect to
the
| server"
|
| J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la
raison
| ??

Non, j'ai également OE comme client émail...

et j'utilise :
C:WINDOWSsystem32cdosys.dll
"Microsoft CDO for Windows 2000 Library"

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)













Bruno Frisque
Le #6362421
Trace est Ok avec
.GetStream.SaveToFile "C:dataMonMail.txt"

Encore tout grand merci à 3 Stone !!


"Bruno Frisque" news:
Petite correction :
Le mail est bien expédié mais n'est PAS dans le sent items.
Comment être sur qu'il est bien parti ?

à plus


"Bruno Frisque" news:%
C'est OK !!

La raison était : il FAUT être connecté AVANT le lancement de la proc.
Question : comment handler le Access err msg "transport cannot find de
serveur" par > "veuillez-vous connecter svp .."

Mais c'est génial effectivement, mail reçu pil-poil immédiatement et est
bien dans le Sent Items de OE !

Question supplémentaire :
Comment "activer" la fenêtre OE, AVANT le .Send ??
(un truc comme .MailClient Show ???)
Cela permettrait aux clients de retrouver leur address book..... comme de
se "rassurer" du contenu avant l'envoi effectif.
(il s'agit ici pour les communes, d'expédier très officiellement des
actes état civil en ligne....)

Encore tout grand merci à 3 Stone !!



"Bruno Frisque" news:%23AeB%
ok Merci réponse !

Je teste çà tmw.

Encore merci
à +
Bruno

"3stone" news:
Salut,

"Bruno Frisque"
| Un form doit expédier une pièce jointe.
|
| Ai placé de code de 3Stone suivant :
| 'Déclaration précoce ("Early Binding")
| 'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
| ' ou Microsoft CDO for Windows 2000 librairy
| 'ok les 2 sont cochées


Les deux ?


| Dim Message As New CDO.Message
| With Message
| .From = ""
| .To = ""
| .Subject = "sujet du mail"
| .TextBody = "Le corps du message"
| .AddAttachment ("c:datatension.jpg")
| .Send
| End With


Je fait l'essai en remplacant simplement le .TO par mon émail et...
dans les 5 secondes je recois un émail de ;-))


| Le message d'erreur Access est : ' "the transport failed to connect
to the
| server"
|
| J'ai Outlook Express (et pas Outlook) comme default mail, est-ce la
raison
| ??

Non, j'ai également OE comme client émail...

et j'utilise :
C:WINDOWSsystem32cdosys.dll
"Microsoft CDO for Windows 2000 Library"

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

















Publicité
Poster une réponse
Anonyme