envoyer e-mail via excel

[AUBELIX]

Bonsoir à tous.

Est-il possible d'envoyer par e-mail une feuille d'un classeur excel ouvert.
Par exemple Feuil1. Pour info, la messagerie est Lotus Notes.
Quelqu'un a-t-il la réponse ?
Merci pour vos réponses.
Bonne soirée

 

[Bernard]

Bonsoir Aubélix et le forum

Tu as dans le menu Fichier/envoyer vers la possibilité d'envoyer soit le classeur soit la feuille par Email à un destinataire.

C'est possible depuis excel 2000;

Cordialement

Bernard

 

[AUBELIX]

Bonjour et merci pour ta réponse.

Pour info Version d'excel 97
Et la messagerie est Lotus Notes, non outlook.

Cordialement

 

[Robert]

Il faut créer utiliser les objets Notes. Voici un exemple (cela peut être une fonction qui recoit comme arguments:
- pstrSendToMembers : A qui envoyer
- pstrCopyToMembers : Qui est en copie
- pstrSubject : Le sujet du memo
- pstrBody : Le texte du memo

'Créer une session
Set Session = CreateObject("Notes.NotesSession")
'Récupérer le nom de l'utilisateur Notes (pour le champ From)
UserName = Session.UserName
'Ouvrir la base de mail
Set Maildb = Session.getdatabase("", "")
If Maildb.IsOpen = True Then 'Already open for mail
Else
Maildb.OpenMail
End If
'Créer et remplir le memo
Set MailDoc = Maildb.CreateDocument
MailDoc.Form = "Memo"
MailDoc.SendTo = pstrSendToMembers
MailDoc.CopyTo = pstrCopyToMembers
MailDoc.Subject = pstrSubject
MailDoc.Body = pstrBody
'Dans le cas ou l'on désir sauvegarder le message mettre a true
MailDoc.SaveMessageOnSend = False
MailDoc.From = UserName

'BONUS Si l'on veux y inclure le fichier excel ....
'Set up the embedded object and attachment and attach it
ActiveWorkbook.Save
Attachment = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachement")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")

'Envoyer le document
MailDoc.Send 0