Mail aves pièce(s) jointe(s) sous lotus note

**arkhang** · 05/12/2013, 13h08

Bonjour à tous,

Mon problème est le suivant, après plusieurs heures de recherche sur internet et de test, je n'arrive toujours pas à joindre une pièce dans mon mail.

Voici le code:

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
Sub mail()
    Dim Session As Object
    Dim Dir As Object
    Dim Doc As Object
    Dim ObjNotesField As Object
    Dim Workspace As Object
    Dim EditDoc As Object
    
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.body = "This is the body."
    Doc.form = "Memo"
    Doc.Subject = "Sujet du mail"
    Doc.sendto = "Receiver@mail.com"
   ' Doc.AddAttachment ("U:\\test.txt") ???
  ' Call ObjNotesField.EMBEDOBJECT(1454, "", ????)
    JE NE SAIS PAS COMMENT INSTANCIER ICI L'OBJET JOINT
    
    '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

Ce n'est malheureusement que le début de mon soucis .. Car je souhaite (après avoir déjà resolu ce soucis) optimiser le code pour joindre des fichier spécifique aux destinataires ... Mais nous verrons ça plus tard lol

Merci d'avance !

Cdt, arkhang !

Invité · 05/12/2013, 14h07

Bonjour,

J'utilise cette macro dans mes applications, à adapter à votre cas :

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
 
Sub EnvoyerReponseCartoParMail(ObjetDuMail, MessageDuMail, AdresseMail)
 
Dim ObjNotesSession As Object
Dim ObjNotesMailFile As Object
Dim ObjNotesDocument As Object
Dim ObjNotesField As Object
Dim SendMail As Boolean
Dim Msg As String
 
Dim EMailCCTo As String
Dim EMailBCCTo As String
 
        ' Mpfe, auteur inconnu
        On Error GoTo SendMailError
        On Error Resume Next
        EMailCCTo = "" '' Optional
        EMailBCCTo = "" '' Optional
 
        ' Etablissement de la connection à Notes
        Set ObjNotesSession = CreateObject("Notes.NotesSession")
 
        ' Establish Connection to Mail File
        ' .GETDATABASE("SERVER", "FILE")
        Set ObjNotesMailFile = ObjNotesSession.GETDATABASE("", "")
 
        'Ouverture du Mail
        ObjNotesMailFile.OPENMAIL
 
        'Création d'un nouveau mémo
        Set ObjNotesDocument = ObjNotesMailFile.CREATEDOCUMENT
 
        'Create 'Subject Field'
        Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("Subject", ObjetDuMail)
 
        'Create 'Send To' Field
        Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("SendTo", AdresseMail)
 
        ' Adresser en copie
        On Error Resume Next
        Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("CopyTo", EMailCCTo)
 
        ' Adresser en copie cachée
        Set ObjNotesField = ObjNotesDocument.APPENDITEMVALUE("BlindCopyTo", EMailBCCTo)
 
        ' Corps du message
        Set ObjNotesField = ObjNotesDocument.CREATERICHTEXTITEM("Body")
 
        With ObjNotesField
            .APPENDTEXT MessageDuMail
        End With
 
        ' Attacher le fichier --1454 indique un attachement de fichier
        ObjNotesField = ObjNotesField.EMBEDOBJECT(1454, "", ActiveWorkbook.FullName)
 
        ' Envoi de l'email
        ObjNotesDocument.SEND (0)
 
    'Release storage
    Set ObjNotesSession = Nothing
    Set ObjNotesMailFile = Nothing
    Set ObjNotesDocument = Nothing
    Set ObjNotesField = Nothing
 
    'Set return code
    SendMail = True
    Exit Sub
 
SendMailError:
    Msg = "Error # " & Str(Err.Number) & " was generated by " _
    & Err.Source & Chr(13) & Err.Description
    MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
    SendMail = False
 
End Sub

Nb : Pour envoyer des fichiers spécifiques à chacun des destinataires, il faudrait mettre le nom complet du fichier en paramètre (fullname).

Code :

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

Sub EnvoyerReponseCartoParMail(ObjetDuMail, MessageDuMail, AdresseMail, NomCompletFichierZip)

**arkhang** · 05/12/2013, 14h58

Bonjour Eric,

Je débute dans le monde de la programmation, et même si je ne pense pas que votre code soit très compliqué à comprendre, j'ai un peu de mal tout de même lol
C'est pourquoi, j'aurais quelques questions à vous soumettre, sans vouloir vous offusquer.

-Si je comprends bien dans la déclaration de la fonction Sub EnvoyerReponseCartoParMail(ObjetDuMail, MessageDuMail, AdresseMail), il faut considérer que l'objet, le message et l'adresse soit envoyé en paramètre par une autre fonction ?

-dans l'EMBEDOBJECT, à quoi correspond ActiveWorkbook.FullName ? Dans mon cas, comme pourrais-je faire pour tester tout d'abord avec ma seul fonction actuelle, en joignant par exemple un fichier bidon se trouvant sur mon disque (par ex "U:\\test.txt") ?

Merci d'avance de votre réponse,

Cordialement, arkhang

Invité · 05/12/2013, 15h13

Envoyé par arkhang

-Si je comprends bien dans la déclaration de la fonction "Sub EnvoyerReponseCartoParMail(ObjetDuMail, MessageDuMail, AdresseMail)", il faut considérer que l'objet, le message et l'adresse soit envoyé en paramètre par une autre fonction ?

Les paramètres permettent d'envoyer des informations différentes en fonction de vos interlocuteurs.

Dans l'exemple ci-dessous, le fichier d'envoi est inclu dans une boucle :

Code :

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

1
2
3
4
5
6
7
 
    For X = LBound(MatriceDestinataires, 2) To UBound(MatriceDestinataires, 2)
      Select Case MatriceDestinataires(2, X)
        Case "A envoyer"
            EnvoyerReponseCartoParMail TexteObjet, TexteMessage, MatriceDestinataires(1, X)
      End Select
    Next X

Dans cette boucle, j'aurais pû également faire varier l'objet et le message en fonction du contexte.

Envoyé par arkhang

-dans l'EMBEDOBJECT, à quoi correspond "ActiveWorkbook.FullName" ? Dans mon cas, comme pourrais-je faire pour tester tout d'abord avec ma seul fonction actuelle, en joignant par exemple un fichier bidon se trouvant sur mon disque (par ex "U:\\test.txt") ?

Dans mon cas, c'est le fichier en cours qui est envoyé par mail (après l'avoir sauvegardé bien sûr). Mais vous pouvez joindre n'importe quel fichier, il vous faut pour cela indiqué le nom complet répertoire et nom de fichier.

Cordialement.

**arkhang** · 05/12/2013, 16h01

J'ai remplacé mes deux premières ligne :

Code :

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

1
2
3
 
' Doc.AddAttachment ("U:\\test.txt") ???
  ' Call ObjNotesField.EMBEDOBJECT(1454, "", ????)

par:

Code :

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

1
2
 
ObjNotesField = ObjNotesField.EMBEDOBJECT(1454, "", "U:\\test.txt")

La syntaxe doit être mauvaise je pense car ça me met le programme en erreur, comment dois-je le corriger ?

Invité · 05/12/2013, 17h15

Envoyé par arkhang

Code :

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

1
2
 
ObjNotesField = ObjNotesField.EMBEDOBJECT(1454, "", "U:\\test.txt")

La syntaxe doit être mauvaise je pense car ça me met le programme en erreur, comment dois-je le corriger ?

Avec deux antislashs successifs, votre chemin n'est pas valide

Code :

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

"U:\\test.txt"

Cordialement

**Oliv-** · 05/12/2013, 23h25

Bonsoir
Lotus notes n est pas facile à automatiser
Si ton email est entièrement automatique tu pourrais plutôt le créer et l'envoyer avec Cdo et éventuellement te mettre en copie .
Je suis bien content d être revenu à outlook mais regarde la
http://www.developpez.net/forums/d12...s/#post7037562

**arkhang** · 06/12/2013, 10h08

Bonjour Oliv,

En fait, avant la macro que je suis en train de réaliser, une autre macro s'occupe du découpage d'un fichier selon les différentes valeurs présente dans une colonne. Elle découpe et met dans des dossier ensuite les classeurs proposant cette valeur (ex: dans ma colonne nom, j'ai plusieurs Dupont, des Dupond, et des Dupons. Ça me créer des classeurs avec ces nom pour libellé, rangé dans des répertoires du même nom.) Ma mission est donc d'envoyer ces données découpée, aux personnes concerné (ex: Mon fichier Dupont est à envoyé à charlotte@bla.fr .... Dupond pour sylvain@bla.fr etc).
Et ça n'envoie pas Automatiquement le mail, mais le laisse en mémo, afin de pouvoir ajouter des modifications (pour change le corps du texte par exemple)

Mais merci de ton conseil, je ne connais pas CDO, je vais voir ton lien et reviendrait plus tard pour parler de mon avancement.

cordialement, arkhang.

**arkhang** · 06/12/2013, 12h50

Merci Oliv !

Le lien que tu m'as donné m'a fait grandement avancé.
Je continue à travailler sur mon code car je n'ai pas tout à fait terminer, mais je peux clore ce topic, mon premier problème étant résolu.

Encore une fois, merci !

Cdt, Arkhang

Mail aves pièce(s) jointe(s) sous lotus note [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager