Access 2007 - Probleme sur envoi email avec pièces jointes
totor92290
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
castours -
castours -
Bonjour à tous,
J'ai modifié mes library...
j'ai ouvert un formulaire vierge dans lequel j'ai ajouté des champs texte:
txtFrom pour email expéditeur
txtTo pour email destinataire
txtSubject pour le sujet du mail
txtBody pour le champ corps du mail
txtAttach dans lequel j'ai copié l'adresse ("C:\Users\xxxxxxxx\Desktop\XXXXXX.xlsx")
J'ai copier/coller le code ci-dessous sur bouton/clic:
Quand je clique sur le bouton j'ai un message d'erreur:
"Run-Time Error'-2147220960(80040220)':
the "sendusing" configuration value is unvalid."
Quand je clique sur debug, la ligne (avant avant dernière) ".Send" est highlighter en jaune.
Je suis débutant et je ne comprends pas 90% du code que j'ai copier!
Pourriez-vous me dire ce qui coince?
Par avance, un grand merci à vous
J'ai modifié mes library...
j'ai ouvert un formulaire vierge dans lequel j'ai ajouté des champs texte:
txtFrom pour email expéditeur
txtTo pour email destinataire
txtSubject pour le sujet du mail
txtBody pour le champ corps du mail
txtAttach dans lequel j'ai copié l'adresse ("C:\Users\xxxxxxxx\Desktop\XXXXXX.xlsx")
J'ai copier/coller le code ci-dessous sur bouton/clic:
Option Compare Database
Option Explicit
Private Sub cmdEnvoyer_Click()
' txtForm
CDOSendMail txtFrom, txtTo, txtSubject, txtBody, txtAttach
' txtForm : Mail de l'envoyeur
' txtTo : Mail de destination
' txtSubject = Objet
' txtBody = contenu
' txtAttach = chemin complet du fichier
End Sub
Public Sub CDOSendMail(SendFrom As String, _
SendTo As String, _
Subject As String, _
PlainTextBody As String, _
FullPathFileName As String)
Dim cdoMail As CDO.Message
Dim iBp As CDO.IBodyPart ' for IBodyPart on message
Dim iBp1 As CDO.IBodyPart
Dim Flds As ADODB.Fields
Dim Stm As ADODB.Stream
Set cdoMail = New CDO.Message
With cdoMail
.From = SendFrom
.To = SendTo
.Subject = Subject
''Set iBp = .BodyPart
Set iBp = cdoMail '??
' TEXT BODYPART
' Add the body part for the text/plain part of message
Set iBp1 = iBp.AddBodyPart
' Set the fields here
Set Flds = iBp1.Fields
Flds("urn:schemas:mailheader:content-type") = "text/plain; charset=""iso-8859-1"""
Flds.Update
' Get the stream and add the message
Set Stm = iBp1.GetDecodedContentStream
Stm.WriteText PlainTextBody
Stm.Flush
' HTML BODYPART
' Do the HTML part here
Set iBp1 = iBp.AddBodyPart
' Set the content-type field here
Set Flds = iBp1.Fields
Flds("urn:schemas:mailheader:content-type") = "text/html"
Flds.Update
' Get the stream and add message HTML text to it
Set Stm = iBp1.GetDecodedContentStream
Stm.WriteText "<HTML><H1>this is some content for the body part object</H1></HTML>"
Stm.Flush
' Now set the Message object's Content-Type header
' to multipart/alternative
Set Flds = iBp.Fields
Flds("urn:schemas:mailheader:content-type") = "multipart/alternative"
Flds.Update
.AddAttachment FullPathFileName
.Send
End With
End Sub
Quand je clique sur le bouton j'ai un message d'erreur:
"Run-Time Error'-2147220960(80040220)':
the "sendusing" configuration value is unvalid."
Quand je clique sur debug, la ligne (avant avant dernière) ".Send" est highlighter en jaune.
Je suis débutant et je ne comprends pas 90% du code que j'ai copier!
Pourriez-vous me dire ce qui coince?
Par avance, un grand merci à vous
A voir également:
- Access 2007 - Probleme sur envoi email avec pièces jointes
- Save as pdf office 2007 - Télécharger - Bureautique
- Telecharger toutes les pieces jointes gmail - Guide
- Comment creer un compte email - Guide
- Acer quick access - Forum Logiciels
- Programmer envoi sms - Guide
1 réponse
Bonjour
Ce code est utilisé pour ouvrir une boite email puis envoyer un message, un document
Private Sub Commande80_Click()
Dim stDocName As String
stDocName = "Devis N°" & Forms![F_ClientsFactures]![S/F_Devis]![N°Devis]
DoCmd.CopyObject , stDocName, acReport, [type Devis]
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Nz(Forms![F_ClientsFactures]![Email]), , , "Suite à votre demande de devis", "Bonjour, suite à votre demande de devis, nous avons l'honneur de vous communiquez notre tarif concernant votre projet. Vous trouverez notre devis en pièce joint."
DoCmd.DeleteObject acReport, stDocName
End Sub
Ce code est utilisé pour ouvrir une boite email puis envoyer un message, un document
Private Sub Commande80_Click()
Dim stDocName As String
stDocName = "Devis N°" & Forms![F_ClientsFactures]![S/F_Devis]![N°Devis]
DoCmd.CopyObject , stDocName, acReport, [type Devis]
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Nz(Forms![F_ClientsFactures]![Email]), , , "Suite à votre demande de devis", "Bonjour, suite à votre demande de devis, nous avons l'honneur de vous communiquez notre tarif concernant votre projet. Vous trouverez notre devis en pièce joint."
DoCmd.DeleteObject acReport, stDocName
End Sub