Discussion :

[sroch]

bonjour,

je recherche comment envoyer un email don l'adresse de l'expétideur ce trouve dan sla première ligne d'un fichier TXT, voici mon début de code qui ne fonctionne pas trop bien:*

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
 
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

merci de votre aide

cordialament

[iclic]

Bonjour,

je recherche comment envoyer un email don l'adresse de l'expétideur ...

1.D'abord si c'est un fichier texte,pour quoi le lire en binaire?
Tu peux simplement faire

Code :

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

1
2
3
4
5
6
7
8
 
Open Adresse For input As #1
Line input #1, , Contenu  
'line input au lieu de input au cas où tu aurais des séparateurs comme la virgule par exemple
 
Close #1
 
'Et s'l y a plusieurs ignes tu boucles jsqu'au 'end of file

...code qui ne fonctionne pas trop bien

2.Pourrais-tu être un peu plus précis? qu'est-ce qui ne fonctionne pas trop bien, explique.

Bon courage A+