Bonjour le code suivant ne produit pas d'erreur, il s’exécute jusqu'au
bout mais le mail ne parvient pas Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim FichiersJoints$
On Error Resume Next
Workbooks("Reg.xlsx").Save
Workbooks("Reg.xlsx").Close
Application.EnableEvents = True
Application.EnableEvents = False
FichiersJoints = "C:\Users\Fred\Documents\Reg.xlsx"
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
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
MichD
Bonjour, À cette adresse, tu devrais trouver ce que tu cherches : https://www.rondebruin.nl/win/s1/cdo.htm Attention dans le code Í cette ligne de code : .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "Fill in your SMTP server here" Tu dois inscrire le serveur SMTP que tu utilises... MichD
Bonjour,
À cette adresse, tu devrais trouver ce que tu cherches :
https://www.rondebruin.nl/win/s1/cdo.htm
Attention dans le code Í cette ligne de code :
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "Fill in your SMTP server here"
Tu dois inscrire le serveur SMTP que tu utilises...
Bonjour, À cette adresse, tu devrais trouver ce que tu cherches : https://www.rondebruin.nl/win/s1/cdo.htm Attention dans le code Í cette ligne de code : .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") "Fill in your SMTP server here" Tu dois inscrire le serveur SMTP que tu utilises... MichD