Discussion :

[ludojojo]

Bonjour,
Je suis dans une grande société, et les flux de données, ports, etc... sont très restreint. Je souhaite envoyer un mail de façon automatique, pour cela plutôt de que chercher tous les paramètres, j'aimerais savoir s'il est possible d'envoyer un mail via lotus, étant donné que le mail doit être envoyer uniquement en interne?
Merci par avance pour votre aide

[ludojojo]

J'ai trouvé ce code là :

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
Sub Main 
Dim oSess As Object
Dim oDB As Object
Dim oDoc As Object
Dim oItem As Object
Dim direct As Object
Dim Var As Variant
Dim flag As Boolean
 
Set oSess = CreateObject("Notes.NotesSession")
Set oDB = oSess.GETDATABASE("", "")
Call oDB.OPENMAIL
flag = True
If Not (oDB.ISOPEN) Then flag = oDB.OPEN("", "")
 
If Not flag Then
    MsgBox "Can't open mail file: " & oDB.SERVER & " " & oDB.FILEPATH
    GoTo exit_SendAttachment
End If
On Error GoTo err_handler
 
'Building Message
Set oDoc = oDB.CREATEDOCUMENT
Set oItem = oDoc.CREATERICHTEXTITEM("BODY")
oDoc.Form = "Memo"
oDoc.subject = "This is the subject"
oDoc.sendto = "steve.gossett@unisyn.com"
oDoc.body = "This is test text in the body of the email"
oDoc.postdate = Date
 
'Attaching DATABASE
Call oItem.EmbedObject(1454, "", "c:\missing.txt")
oDoc.visable = True
'Sending Message
oDoc.SEND False
exit_SendAttachment:
On Error Resume Next
Set oSess = Nothing
Set oDB = Nothing
Set oDoc = Nothing
Set oItem = Nothing
'Done
Exit Sub
err_handler:
          If Err.Number = 7225 Then
          MsgBox "File doesn't exist"
          Else
          MsgBox Err.Number & " " & Err.Description
          End If
On Error GoTo exit_SendAttachment
End Sub

Mais lors de sont exécution j'ai une erreur :
cf pj
Quelqu'un à une idée

[SfJ5Rpw8]

Ce code ce n'est pas du VBSCript !! ( mauvaise déclaration des variables !!) c'est quoi ton environnent de développement ?

peu être un problème de version du client lotus notes ... qu'elle est ta version ?

[ludojojo]

En effet je me suis rendu compte en cherchant que ce code ressemble plus à du vba qu'à du vbs! dsl!
Je fonctionne avec Lotus Notes 6.5
Comment peut on faire quelque chose de similaire en vbs?

[SfJ5Rpw8]

je n'ai pas accès à ma une base lotus ... ici...


mais tu devrai essayer d'adapter le code de la VB6 ici :

http://vb.developpez.com/faq/?page=Reseau#mail_lotus

[ludojojo]

C'est du VBA?
ça s'utilise depuis office? Excel?
Comment peut ont adapter ce code vers du vbs? Je suis un peut perdu, dsl.

[ludojojo]

J'ai trouvé la solution à mon pb, voici le code que j'ai créé. Celui-ci n'utilise pas directement Lotus Notes, en revanche il permet d'envoyer un mail et remplir le .TextBody avec le contenu de différents fichiers texte.
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
50
51
52
53
54
55
56
Option Explicit
 
Const PourLecture = 1
Const cteAdresseSource = "bb@cc.dd"
 
Dim objMail, sDestination, sPieceJointeCtre, sPieceJointeCB, msgTitre, msgTexteCtre, msgTexteCB, ContenuFichierTxt, lienTb_CB, lienTb_Ctre
 
Set objMail = CreateObject("CDO.Message")
sDestination = aa@bb.cc
msgTitre = "mon titre"
msgTexteCtre = "Bonjour," & vbCrLf & "Voici la le premier text" & vbCrLf
msgTexteCB = "Voici un bout de text"
sPieceJointeCtre = "fichierText_Ctre.txt"
sPieceJointeCB = "fichier_Ctre"
lienTb_CB = "http://www.monsite.com"
lienTb_Ctre = "http://www.monsite.com"
 
With objMail
	.From = cteAdresseSource
	.To = sDestination
	.Subject = msgTitre
 
	.Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "monsmtp"
	.Configuration.Fields _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	.Configuration.Fields.Update
 
	If (sPieceJointeCB <> "" & sPieceJointeCtre <> "") Then
		LirePieceJointe(sPieceJointeCtre)
		.TextBody = msgTexteCtre & ContenuFichierTxt & vbCrLf & lienTb_Ctre
		LirePieceJointe(sPieceJointeCB)
		.TextBody = .TextBody & vbCrLf & vbCrLf & vbCrLf & vbCrLf & msgTexteCB & vbCrLf & ContenuFichierTxt & vbCrLf & lienTb_CB
	End If
	.Send
End With
 
Set objMail = Nothing
WScript.Sleep 1000
'MsgBox "Courriel envoyé !"
 
Function LirePieceJointe(LeFichier)
 
    Dim objFSO, CeFichier
 
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If (objFSO.FileExists(LeFichier)) Then
        Set CeFichier = objFSO.OpenTextFile(LeFichier, PourLecture)
        ContenuFichierTxt = CeFichier.ReadAll
        CeFichier.Close
        Set CeFichier = Nothing
    End If
 
    Set objFSO = Nothing
 
End Function

Je suis concient que ce code n'est pas forcément facile à comprendre, et je n'ai pas ue le temps de le commenter, si besoin faite moi signe, et je vous donnerais plus d'informations.