> Tous les forums > Forum Bureautique
 Mail lors d'une fermeture Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
astrabar
  Posté le 13/11/2017 @ 07:38 
Aller en bas de la page 
Petit astucien

Bonjour,

J'aimerais envoyer un mail quand on enregistre un fichier excel à sa fermeture via un code automatique.

Est-ce que quelqu'un a une idée car je sèche :s

Merci d'avance

Publicité
Debrief
 Posté le 13/11/2017 à 08:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Faut aller dans le panneau VBA (Alt + F11).

Cliquer à gauche sur ThisWorkbook et ajouter la fonction qui correspond à ce que tu veux faire dans laquelle tu mettras ton code pour envoyer le mail.
- Private Sub Workbook_BeforeClose(Cancel As Boolean)
- Private Sub Workbook_AfterSave(ByVal Success As Boolean)
- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Si tu utilises Outlook, il y a des exemples ici -> https://duckduckgo.com/?q=vba+envoyer+un+mail+avec+outlook&ia=web

Cordialement,
D.

astrabar
 Posté le 16/11/2017 à 13:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Via le code ci-dessous, j'arrive à envoyer un mail mais j'aimerais maintenant changer le nom de l'expéditeur.

'Sub UseOutlook()
' Dim MonOutlook As Object
' Dim MonMessage As Object
' Set MonOutlook = CreateObject("Outlook.Application")
' Set MonMessage = MonOutlook.createitem(0)
' MonMessage.To = "toto@toto.com"
' MonMessage.Cc = "bidule@machin.com"
' MonMessage.Bcc = "chose@machin.com"
' MonMessage.Subject = "Quel beau soleil"
' MonMessage.body = "N'est ce pas un beau temps pour aller à la piscine ?"
' MonMessage.send
' Set MonOutlook = Nothing
' End Sub

Qui aurait une idée ?

astrabar
 Posté le 27/11/2017 à 21:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Je reviens vers vous car j'essaie un code trouvé sur le net mais j'ai l'erreur : "Le message n'a pas pu être envoyé vers le serveur SMTP. Le code d'erreur de transport était 0x80040217. La réponse du serveur était not available".

Voici le code

Email()

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String

strSubject = "Results from Excel Spreadsheet"
strFrom = "xxx@gmail.com"
strTo = "yvle@b2c-engineering.com"
strBody = "The total results are: 167"

Set CDO_Mail = CreateObject("CDO.Message")

Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1

Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Update
End With

With CDO_Mail
Set .Configuration = CDO_Config
End With

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.Send

End Sub

Qui aurait une idée car je sèche ?

Merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
PUBLIPOSTAGE word/excel vers mail en pdf
excel- Une erreur s'est produit lors de l'envoie de commande au programme
créer une alerte mail depuis excel
Transférer des adresse mail depuis Excel
gestion @ mail dans fichier clients Excel
Erreur lors de l'enregistrement sous excel
adresse Mail sur excel 2007
Export Excel mail dans un dossier
Macro pour un envoi feuille excel par mail
renommer un classeur excel à la fermeture
Plus de sujets relatifs à Mail lors d''une fermeture Excel
 > Tous les forums > Forum Bureautique