Discussion :

[jimmy0123]

Bonjour,

J'ai lu cette discussion.
J'arrive bien à envoyer le mail par Lotus grace a votre macro.
Cependant, mon problème reste l'attachement.
Il n'attache rien.
Si j'ai bien compris, il faut qu'il y ai quelque chose dans les cellules pour qu'il attache quelque chose :

Code :

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

If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> "" Then

par contre il ne m'attache rien.
Il me met qu'il trouve rien...
que dois je mettre dans ces cellules? un lien vers l'onglet à envoyer? une adresse de cellule et si oui comment?
Je voudrais envoyer un onglet complet ou alors une plage de cellule...
Pouvez vous m'aider?

Merci d'avance.

Jimmy

[Godzestla]

Bonjour,

regarde plutôt ici

Bonne journée.

[jimmy0123]

Bonjour,

Je suis nouveau sur ce site et je ne connais pas encore bien le fonctionnement.

J'arrive bien à envoyer le mail par Lotus grace a votre macro.
Cependant, mon problème reste l'attachement.
Il n'attache rien.
Si j'ai bien compris, il faut qu'il y ai quelque chose dans les cellules pour qu'il attache quelque chose :

Code :

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

If Attachment1 <> "" And Attachment2 <> "" And Attachment3 <> "" Then

par contre il ne m'attache rien.
Il me met qu'il trouve rien...
que dois je mettre dans ces cellules? un lien vers l'onglet à envoyer? une adresse de cellule et si oui comment?
Je voudrais envoyer un onglet complet ou alors une plage de cellule...
Pouvez vous m'aider?

Merci d'avance.

[drakkar_agfa]

Bonjour,

ça pourrait nous aider si tu ajoutais un code...

Et pour l'onglet, vite comme ça, tu peux supprimer tous les onglets sauf celui que tu veux envoyer, ensuite enregistrer le fichier sous un autre nom (fichier temporaire) ensuite envoyer le fichier temporaire, si tu veux, tu peux ensuite supprimer le fichier temporaire.

Il existe peut-être une façon d'envoyer seulement un onglet mais je ne la connais pas.

Et pour la question de cellules, je ne comprends pas, et sans code, encore plus dur à comprendre!

Alors on attend ton code et peut-être plus d'explications sur le quoi de la cellule (est-ce le nom du fichier?...?).

[alex830001]

Bonjour,

Tu fais un code qui copie ton onglet dans un nouveau fichier, tu attaches ce fichier puis tu le delete.

Beaucoup d'info sur cette macro ici:

http://www.developpez.net/forums/d63...ia-lotusnotes/

[jimmy0123]

Voici que le code que j'ai, mais je n'ai pas le code pour copier l'onglet vers un nouveau fichier envoyer le nouveau fichier et supprimer le nouveau fichier...

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
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Private Sub envoiparmail()
 
    Dim Session As Object
    Dim db As Object
    Dim doc As Object
    Dim rtitem As Object
    Dim object As Object
    Dim fs As Object
    Dim Principaux(2) As String
    Dim Copies(3) As String
    Dim dir As Object
    Dim inti As Integer
    Dim passwd As String
 
    On Error GoTo TraiteErreur
 
      ' Imprimer
    ActiveSheet.PrintOut
 
 
    'Demande le password Lotus(Dans le cas ou la session necessite un passwd)
    passwd = InputBox("Entrer votre password Lotus:", "Password")
 
    ' Création de la session Notes
    Set Session = CreateObject("Lotus.NOTESSESSION")
 
    'Ouverture d'une session NOTES
    Call Session.Initialize(passwd) 'si pas de passwd pas de parametre pour initialize
    Set dir = Session.GETDBDIRECTORY("XXXX")
    Set db = dir.OpenMailDatabase
 
    ' Création d'un document
    Set doc = db.CreateDocument
 
    ' Création du texte
    Set rtitem = doc.CreateRichTextItem("Body")
    Call rtitem.AppendText("Bonjour,")
    Call rtitem.ADDNEWLINE(3)
    Call rtitem.AppendText("Vous trouverez ci-joint,")
    Call rtitem.ADDNEWLINE(1)
    Call rtitem.AppendText("une demande d'avoir ou une demande de facture supplémentaire.")
    Call rtitem.ADDNEWLINE(3)
    Call rtitem.AppendText("Sincères salutations.")
    Call rtitem.ADDNEWLINE(2)
    Call rtitem.AppendText("XXXXXX.")
    Call rtitem.ADDNEWLINE(2)
    Call rtitem.AppendText("____________________________________________________________________.")
    Call rtitem.ADDNEWLINE(2)
    Call rtitem.AppendText("Ce message est généré automatiquement.")
    Call rtitem.ADDNEWLINE(4)
    Call rtitem.AppendText("Le fichier joint :                .")
 
 
    'affectation du type mail
    Call doc.APPENDITEMVALUE("Form", "Memo")
    Call doc.APPENDITEMVALUE("SendTo", "")
    Call doc.APPENDITEMVALUE("CopyTo", "")
    Call doc.APPENDITEMVALUE("BlindcopyTo", "XXX@XXXX.com")
    Call doc.APPENDITEMVALUE("subject", "Demande d'avoir XXXXXXXX")
    'sauvegarde du mail à l envoi
    doc.SaveMessageOnSend = True
 
 
    Dim nom As String
    nom = ThisWorkbook.FullName
    'Attachement du classeur au mail
    Set object = rtitem.embedObject(1454, "", nom, "")
 
    Call doc.Send(False)
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    Exit Sub
TraiteErreur:
    MsgBox "Erreur Critique durant l envoi .", vbCritical, "Error"
    Set object = Nothing
    Set rtitem = Nothing
    Set doc = Nothing
    Set db = Nothing
    Set Session = Nothing
    Set fs = Nothing
End Sub

[Godzestla]

Salut alex830001,
content de voir que mon code est utile.

jimmy0123 pense à ce que je t'ai demandé: reformattage du code.
ce n'est pas optionnel.