Feuille active via Outlook

[tinet]

Bonsoir le forum,

Je penqe que le sujet à déjà été traiter, mais je n'ai rien trouver.


J'ai besoin de rajouet à l'envoie de ma feuille un message dans le mail.

J'ai bien l'adresse et le sujet, mais manque le message en ligne A305.

Merci pour votre aide.

ActiveWorkbook.SendMail Recipients:=ActiveSheet.Range("a300:a303").Value, _
Subject:=ActiveSheet.Range("a304").Value, _
ReturnReceipt:=True

 

[Yaloo]

Re : Feuille active via Outlook

Bonsoir Tinet,

Avec une macro de ce type-là ça doit le faire.

Option Explicit
Sub Envoi_Mail()
Dim OutApp As Object, OutMail As Object, Fichier$
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   ActiveSheet.Copy
   Fichier = ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsx"
   ActiveWorkbook.SaveCopyAs Fichier
   On Error Resume Next
   With OutMail
     .to = "adresse mail du destinataire"
     .Subject = "Ton Objet"
     .Body = "Ton texte"
     .Attachments.Add Fichier
     .Display 'pour voir et modifier ou envoyer
    '.Send  'Pour envoyer directement
  End With
   On Error GoTo 0
   ActiveWorkbook.Close 0
   Kill Fichier
   Set OutMail = Nothing
   Set OutApp = Nothing
End Sub

A te relire

Martial

 

[tinet]

Re : Feuille active via Outlook

Bonsoir Yaloo,

Non je ne voulais pas sa.
Il me fallait des adresse sur la feuille.

J'ai trouver ma solution merci.