Envoi de fichiers par lotus

Re : Envoi de fichiers par lotus

Bonjour,

J'ai modifier mon fichier en créant les grafs dans le même fichier sur des feuilles différentes. Pour envoyer mes feuilles aux différents destinataires j'utilise le code ci-dessous.

3 problèmes :
1- Pour le 1er envoi (alpes) tout va bien, pour le 2éme le fichier est bien attaché mais je n'ai pas le destinataire et l'objet dans le navigateur
2- Si je souhaite ajouter un message (taper dans une cellule excel et intégrer dans le navigateur), comment faire ?
3- Est-il possible que le navigateur envoie automatiquement les mails ?

merci d'avance.

Code :

Sub Envoi_fichier_par_mail()

Application.ScreenUpdating = False

'Envoi Alpes
Dim Dest As String, Sujet As String
'Saisir l'adresse mail
Dest = Range("C14").Value
Sujet = Range("C12").Value
'Saisir le nom exact la feuille
Sheets("Alpes").Visible = True
Sheets("Alpes").Select
'Crée une copie de la feuille active
ActiveSheet.Copy
'Envoi
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
'Ferme la copie de la feuille active
ActiveWorkbook.Close
Application.DisplayAlerts = True
ActiveWindow.SelectedSheets.Visible = False

'Envoi Alsace-Lorraine
'Saisir l'adresse mail
Dest = Range("C15").Value
Sujet = Range("C12").Value
'Saisir le nom exact la feuille
Sheets("Alsace-Lor").Visible = True
Sheets("Alsace-Lor").Select
'Crée une copie de la feuille active
ActiveSheet.Copy
'Envoi
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
'Ferme la copie de la feuille active
ActiveWorkbook.Close
Application.DisplayAlerts = True
ActiveWindow.SelectedSheets.Visible = False


Application.ScreenUpdating = True
Sheets("Synthèse mois").Select
Range("C11").Select

End Sub

Re : Envoi de fichiers par lotus

Bonsoir,
En cherchant "excel vba navigateur lotus" on trouve quelques idées.
La question à déjà été évoquée sur XLD si cela peut t'aider
https://www.excel-downloads.com/threads/envoi-mail-avec-excel-vba-vers-lotus-6-5.87786/
et sur un autre forum
Enoyer un mail sous Excel via Lotus Notes

Les utilisateurs de LOTUS ne doivent pas être très nombreux.
A+
Robert