Discussion :

[papass]

Bonjour,
j'ai créé ce code pour pourvoir copier des element sur excel et afin de pouvoir les coller dans un mail via lotus.
cela fonctionne bien, pas de souci sur mon code.

par contre, j'ai 2 problemes :
1 - je desire ajouter dans le corps du texte un copié/collé de la zone A1:M42 et je n'y arrive pas

2 - de plus, je souhaite que mon mail soit expedié directement par la macro sans action utilisateur

quelqu'un peux m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub CommandButton1_Click()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String
 
 
MailAd = Range("F9") 'sélectionne la cellule où se trouve une adresse mail
copie = Range("F9") 'sélectionne la cellule où se trouve une adresse mail pour copie
Subj = "préavis : " & Range("I1") & " - " & Range("D1") 'Objet du mail avec texte préformaté et sélection d'une cellule
msg = msg & "Veuillez trouver ci-joint le fichier relatif au préavis de TOPH " & Range("I1") 'texte + selection d'une cellule
 
'en plus de la ligne ci dessus, je veux une copie d'une zone ( A1:M42) par exemple
 
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & msg & "&Cc=" & copie
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

merci d'avance

[Menhir]

Je pense que pour faire ce type d'opération, un FollowHyperlink ne suffira pas et qu'il faudra manipuler des objets Lotus "pour de vrai".
Tu pourras trouver de l'aide ici : https://www.ibm.com/support/knowledg...REFERENCE.html