Envoi automatique par mail d'une feuille excel sous lotus note

[jlp035]

Bonjour,
débutant en vba je me permet d'exposer mon probléme.
j'ai récuperé des morceau de programme que j'ai adaptè à mon application mais actuellement lorsque je lance la macro B_Email dans l'user form, le fichier est bien envoyer sous lotus, le nom du destinataire est bien repris, et le nom de l'objet également.
Mais je dois faire éffectuer un "controle V"dans le corps de la messagerie et appuyer sur "envoyer" dans lotus pour envoyer la feuille.
Est 'il possible d'automatiser également cette action?

Private Sub B_Email_Click()
 Dim MailAd As String
 Dim Msg As String
 Dim Subj As String
 Dim URLto As String
 Sheets("Documents").Select
 Range("A1:W57").Select
 Range("A57").Activate
 Selection.Copy
 MailAd = Range("O17")
 Subj = Range("B21")
 Msg = Msg & Range("A57")
 URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
 ActiveWorkbook.FollowHyperlink Address:=URLto
 End Sub

merci par avance

 

[jlp035]

Re : Envoi automatique par mail d'une feuille excel sous lotus note

Bonjour,
n'ayant reçu aucune réponses et n'ayant pas résolu mon je me permet d'exposer à nouveau mon probléme.
J'ai récuperé des morceau de programme que j'ai adaptè à mon application mais actuellement lorsque je lance la macro B_Email dans l'user form, le fichier est bien envoyer sous lotus, le nom du destinataire est bien repris, et le nom de l'objet également.
Mais je dois faire éffectuer un "controle V"dans le corps de la messagerie et appuyer sur "envoyer" dans lotus pour envoyer la feuille.
Est 'il possible d'automatiser également cette action?

Private Sub B_Email_Click()
  Dim MailAd As String
  Dim Msg As String
  Dim Subj As String
  Dim URLto As String
  Sheets("Documents").Select
  Range("A1:W57").Select
  Range("A57").Activate
  Selection.Copy
  MailAd = Range("O17")
  Subj = Range("B21")
  Msg = Msg & Range("A57")
  URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg & CrvLrf
  ActiveWorkbook.FollowHyperlink Address:=URLto
  End Sub

 

[Hulk]

Re : Envoi automatique par mail d'une feuille excel sous lotus note

Slt Jlp, Forum,

Je ne connais pas Lotus Note, mais voici trois liens du site de Frédéric Sigonneau qui pourront peut-être t'aider.

Ce site n'existe plus

Ce site n'existe plus

Ce site n'existe plus

__________________________________________________________________________________________________

Au passage, bonne année à tous 🙂

 

[jlp035]

Re : Envoi automatique par mail d'une feuille excel sous lotus note

Bonsoir,
Je te remercie pour ta prompte reponse et jette de suite un oeil aux 3 liens que tu m' a envoyé.
Je te souhaite également une bonne année 2012.

 

[jlp035]

Re : Envoi automatique par mail d'une feuille excel sous lotus note

Bonjour,
je n'arrive toujour pas à envoyer ma zone de feuille excel comme corps de message.
Quelles sont les meilleures possiblitées ?
transformer ma zone de feuille excel en htlm ou autre formats ??
Merci d'avance