Access 2007 - Probleme sur envoi email avec pièces jointes Fermé

Question

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: Option Compare DatabaseOption 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 fichierEnd Sub Public Sub CDOSendMail(SendFrom As String, _ SendTo As String, _ Subject As String, _ PlainTextBody As String, _ FullPathFileName As String)Dim cdoMail As CDO.MessageDim iBp As CDO.IBodyPart ' for IBodyPart on messageDim iBp1 As CDO.IBodyPartDim Flds As ADODB.FieldsDim 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 "

this is some content for the body part object

" 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 WithEnd 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

castours · Answer

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

Access 2007 - Probleme sur envoi email avec pièces jointes

1 réponse

Discussions similaires