joliemaman007
XLDnaute Nouveau
Bonjour tout le monde,
m'inspirant de tous et de toutes, j'ai réussi ) ) (yesss) à faire une macro qui envoie un intercalaire d'un fichier XLS par email sauf que ca ne marche que si mon utilisateur a Outlook. Avec LOTUS NOTES, ca bugue ermm: ) . Quelqu'un(e) connait-il/elle la syntaxe à utiliser pur que ca fonctionne quelque soit le client de messagerie de l'utlisateur ?
Voici mon code:
Sub email()
Dim NewBook As Workbook
Dim Intercalaire As Variant
Dim aujourdhui As Date
Dim Destinataires(2) As String, Sujet As String
Dim AccuseReception As Boolean
Dim message, titre, Style, reponse As String
Destinataires(1) = 'joliemaman007@msn.fr'
Destinataires(2) = 'joliemaman007@yahoo.fr'
NomDeLaFeuille = 'Database'
aujourdhui = Now()
Sujet = 'Form 1C Database as of ' & aujourdhui
AccuseReception = True
Application.ScreenUpdating = False
Intercalaire = 'F1C ' & aujourdhui & '.xls'
Worksheets(NomDeLaFeuille).Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
message = 'Votre formulaire a été envoyé avec succès' & Chr(13) & 'et transmis au Secrétariat.' & Chr(13) & 'Merci.'
titre = 'E-Mail Confirmation'
Style = vbYesNo + vbQuestion + vbDefaultButton2
reponse = MsgBox(message, Style, titre)
End Sub
J'espère que l'un(e) de vous aura la solution (surout qu'il parait que demain, le 8 mars, CE SERA LA JOURNEE DE LA FEMME )
Bonne soirée
Joliemaman007
m'inspirant de tous et de toutes, j'ai réussi ) ) (yesss) à faire une macro qui envoie un intercalaire d'un fichier XLS par email sauf que ca ne marche que si mon utilisateur a Outlook. Avec LOTUS NOTES, ca bugue ermm: ) . Quelqu'un(e) connait-il/elle la syntaxe à utiliser pur que ca fonctionne quelque soit le client de messagerie de l'utlisateur ?
Voici mon code:
Sub email()
Dim NewBook As Workbook
Dim Intercalaire As Variant
Dim aujourdhui As Date
Dim Destinataires(2) As String, Sujet As String
Dim AccuseReception As Boolean
Dim message, titre, Style, reponse As String
Destinataires(1) = 'joliemaman007@msn.fr'
Destinataires(2) = 'joliemaman007@yahoo.fr'
NomDeLaFeuille = 'Database'
aujourdhui = Now()
Sujet = 'Form 1C Database as of ' & aujourdhui
AccuseReception = True
Application.ScreenUpdating = False
Intercalaire = 'F1C ' & aujourdhui & '.xls'
Worksheets(NomDeLaFeuille).Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
message = 'Votre formulaire a été envoyé avec succès' & Chr(13) & 'et transmis au Secrétariat.' & Chr(13) & 'Merci.'
titre = 'E-Mail Confirmation'
Style = vbYesNo + vbQuestion + vbDefaultButton2
reponse = MsgBox(message, Style, titre)
End Sub
J'espère que l'un(e) de vous aura la solution (surout qu'il parait que demain, le 8 mars, CE SERA LA JOURNEE DE LA FEMME )
Bonne soirée
Joliemaman007