Mailto entre Outlook et Notes en VBA

[joliemaman007]

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

 

[Romu]

Set wkbAnomalies = Workbooks.Open(sAnomalieFile, , True)
Application.Dialogs(xlDialogSendMail).Show '', sSubject
wkbAnomalies.Close False

Où wkbAnomalies est le classeur que tu veux joindre à ton email.