Mail lotus via vba

[habiler]

Hi the Community,

I found a code which sends back to(dismisses) me the error: can't find : "C:\Users\Desktop\Classeur1.xlsx"
Thanks for your help

Habiler

[RIGHT][FONT=monospace]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
[/FONT][/RIGHT]
[COLOR=#0000ff]Sub[/COLOR] UseLotus()     [COLOR=#0000ff]Dim[/COLOR] Session [COLOR=#0000ff]As[/COLOR] NotesSession    [COLOR=#0000ff]Dim[/COLOR] db [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] doc [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] rtitem [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] [COLOR=#0000ff]object[/COLOR] [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] fs [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] Principaux([COLOR=#cc66cc]2[/COLOR]) [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] Copies([COLOR=#cc66cc]3[/COLOR]) [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] dir [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Object[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] inti [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]Integer[/COLOR]    [COLOR=#0000ff]Dim[/COLOR] passwd [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR]     [COLOR=#0000ff]On[/COLOR] [COLOR=#0000ff]Error[/COLOR] [COLOR=#0000ff]GoTo[/COLOR] TraiteErreur     [COLOR=#808080]'Demande le password Lotus(Dans le cas ou la session necessite un passwd)[/COLOR]     passwd = InputBox([COLOR=#ff0000]"Entrer votre password Lotus:"[/COLOR], [COLOR=#ff0000]"Password"[/COLOR])     [COLOR=#808080]' Création de la session Notes[/COLOR]    [COLOR=#0000ff]Set[/COLOR] Session = CreateObject([COLOR=#ff0000]"Lotus.NotesSession"[/COLOR]) [COLOR=#808080]' Session n'est pas initialisé[/COLOR]     [COLOR=#808080]'Ouverture d'une session NOTES[/COLOR]    Session.Initialize (passwd) [COLOR=#808080]'si pas de passwd pas de parametre pour initialize[/COLOR]     [COLOR=#0000ff]Set[/COLOR] dir = Session.GETDBDIRECTORY([COLOR=#ff0000]""[/COLOR]) [COLOR=#808080]'FranceServer1/DCI/BME/Omnia Group[/COLOR]    [COLOR=#0000ff]Set[/COLOR] db = dir.OpenMailDatabase     [COLOR=#808080]' Création d'un document[/COLOR]    [COLOR=#0000ff]Set[/COLOR] doc = db.CREATEDOCUMENT     [COLOR=#808080]'affectation du type mail[/COLOR]    [COLOR=#0000ff]Call[/COLOR] doc.APPENDITEMVALUE([COLOR=#ff0000]"Form"[/COLOR], [COLOR=#ff0000]"Memo"[/COLOR])     [COLOR=#0000ff]Call[/COLOR] doc.APPENDITEMVALUE([COLOR=#ff0000]"Sendto"[/COLOR], [COLOR=#ff0000]"mmmm@msn.com"[/COLOR])    [COLOR=#0000ff]Call[/COLOR] doc.APPENDITEMVALUE([COLOR=#ff0000]"subject"[/COLOR], [COLOR=#ff0000]"Alerte !"[/COLOR])    doc.SAVEMESSAGEONSEND = SaveIt [COLOR=#808080]'sauvegarde du mail à l envoi[/COLOR]     [COLOR=#0000ff]Set[/COLOR] rtitem = doc.createRichTextItem([COLOR=#ff0000]"Body"[/COLOR])      [COLOR=#0000ff]Dim[/COLOR] Nom [COLOR=#0000ff]As[/COLOR] [COLOR=#0000ff]String[/COLOR]    Nom = [COLOR=#ff0000]"C:\Users\Desktop\Classeur1.xlsx"[/COLOR]    [COLOR=#808080]'Attachement du classeur au mail[/COLOR]    [COLOR=#0000ff]Set[/COLOR] [COLOR=#0000ff]object[/COLOR] = rtitem.embedObject([COLOR=#cc66cc]1454[/COLOR], [COLOR=#ff0000]""[/COLOR], Nom, [COLOR=#ff0000]""[/COLOR])     [COLOR=#0000ff]Call[/COLOR] doc.Send([COLOR=#0000ff]True[/COLOR])    [COLOR=#0000ff]Set[/COLOR] [COLOR=#0000ff]object[/COLOR] = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] rtitem = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] doc = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] db = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] Session = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Exit[/COLOR] [COLOR=#0000ff]Sub[/COLOR] TraiteErreur:   MsgBox [COLOR=#ff0000]"Erreur Critique durant l envoi ."[/COLOR] & Err.Description, vbCritical, [COLOR=#ff0000]"Error"[/COLOR]    [COLOR=#0000ff]Set[/COLOR] [COLOR=#0000ff]object[/COLOR] = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] rtitem = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] doc = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] db = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] Session = [COLOR=#0000ff]Nothing[/COLOR]    [COLOR=#0000ff]Set[/COLOR] fs = [COLOR=#0000ff]Nothing[/COLOR] [COLOR=#0000ff]End[/COLOR] [COLOR=#0000ff]Sub[/COLOR]

 

[JHB]

Are you sure the path and file exist?

If you want any to see on your code, then set it up proper!