ouverture d un email paramétrer lorsque copie

[chrisaccess]

Bonjour, Voici un programme qui permet d'ouvrir un email sur lotus notes et de ne pas l'envoyer.
J'ai récupérer ce dernier il y a quelques jours et je m'amuse avec depuis, pour le préparer à l'insertion dans un programme.

le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Private Sub UseLotus()
 
 
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim Workspace As Object
    Dim EditDoc As Object
    Dim texte As String
 
 
 
On Error GoTo TraiteErreur
 
    'Création de la session Notes
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Set Session = CreateObject("notes.NOTESSESSION")
    Set Dir = Session.GETDATABASE("", "")
    Call Dir.OPENMAIL
 
    'Creation d'un document
    Set Doc = Dir.CREATEDOCUMENT
 
    Doc.form = "Memo"
    Doc.Subject = "Sujet du mail" 'objet du mail
    Doc.SendTo = "Receiver@mail.com" 'destinataire du mail
    Doc.CopyTo = "dgiry@technip.com" 'cc du mail
    Doc.Body = Range("a5:b7").Value ' texte du mail
    Doc.BlindCopyTo = "bccRecipient@erd.fr" ' ccc du mail
    Doc.CREATERICHTEXTITEM = "g:\ECARTS\ecart_envoie.xslm"
 
 
    'Affichage du mail dans Lotus Notes
    Set EditDoc = Workspace.EditDocument(True, Doc)
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
    Exit Sub
 
TraiteErreur:
 
    MsgBox "Problème de création du mail", vbCritical, "Error"
 
    Set Session = Nothing
    Set Dir = Nothing
    Set Doc = Nothing
    Set Workspace = Nothing
    Set EditDoc = Nothing
 
End Sub

Plusieurs corrections à apporter pour pouvoir l'intégrer :

-- J'ai le corps du texte sur une feuille excel et je cherche à le recopier tel quel sur le mail. Celà se passe sur la commande : Doc.Body = Range("a5:b7").Value ' texte du mail. J'ai essayé plusieurs fonction de range sans succés. J'arrive à coller le texte mais la mise en forme disparait.
D'ailleurs c'est cette fonction ".value" qui a eu le meilleur résultat mais très loin de se que je souhaite. Je peux créer cet modèle dans un userform si nécessaire où tout autre idée qui vous viendrez.

-- Ensuite dans la même ligne, la messagerie lotus a une signature automatique qui se place en fin de message normalement. La commande doc.body qui est Dir.CREATEDOCUMENT.body me place son contenu après la signature. Avez vous une solution pour demander à lotus de placer le curseur sur la première ligne du texte avant de coller.

-- En dernier je recherche comment joindre une pièce jointe. J'ai essayé un programme sans succés, que j'ai déjà effacé. Si vous avez la commande qui fonctionne celà m'arrangerait

merci

2 précisions importantes : ce programme fonctionne tel quel, et l'email se fait sous lotus (la version je vous la préciserai semaine prochaine si nécessaire car c'est au travail que j'ai lotus)

merci pour votre aide

[chrisaccess]

Quelqu'un peut il m'aider ou il n'y a pas de solutions ?