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
|
Private Sub Command6_Click()
'contenu du presse papier
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer
'adresse du fichier à lire
Adresse = "C:\Rapport événement\Carnet Outloock.txt"
If Dir(Adresse) <> "" Then
Contenu = Space(FileLen(Adresse))
'réccupère le contenu du fichier
Open Adresse For Binary As #1
Get #1, , Contenu
Close #1
' Ligne = Split(Contenu, vbCrLf) '"découpe" chaque ligne
n = 0 'attention : la première ligne a l'indice 0
emailsubject = "Rapport des évènements du " & Date 'Demande du sujet du message
emailmsg = "Bonjour," & Chr$(13) & "veuillez trouver ci-dessou le rapport des évènements qui nous ont étés communiqué" & Chr$(13) & Chr$(13) & Form1!lab1 & Chr$(13) & Form1!lab2 & Chr$(13) & Form1!lab3 & Chr$(13) & Form1!lab4 & Chr$(13) & Form1!lab5 'Demande du contenu du message
emaildest = n 'Demande de l'adresse email
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = emailsubject
.Body = emailmsg
'.Attachments.Add " "
.Send
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
objSession.Logoff
Set objSession = Nothing
Set ObjOutl = Nothing
End Sub |
