Envoi de la zone d'une feuille sous Lotus Notes

  • Initiateur de la discussion Initiateur de la discussion jlp035
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jlp035

XLDnaute Occasionnel
Bonjour,
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 un controle V et appuyer sur envoyer dans lotus pour envoyer la feuille.
Est 'il possible d'automatiser également cette action?


Code:
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


Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
554
Réponses
11
Affichages
2 K
Réponses
19
Affichages
2 K
Réponses
3
Affichages
987
Retour