Discussion :

[souaddemaroc]

Salut Je veux envoyer des mails de mon application vb.net vers outlook donc j'ai trouvé ce code là mais j'ai des erreurs que je n'arrive pas à résoudre

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
PublicSub mail(ByVal GROUPE AsString, OptionalByVal JOINTE AsString = "", OptionalByVal SUJET AsString = "", OptionalByVal BODY AsString = "", OptionalByVal dest AsString = "")
' FONCTION PERMETTANT D'ENVOYER UN MAIL AVEC UNE PIECE JOINTE 
Dim MonOutlook AsNew Outlook.Application
Dim MonMessage As Outlook.MailItem
'Set MonOutlook = CreateObject("Outlook.Application") 
' CREATION D'UN NOUVEAU MESSAGE 
MonMessage = MonOutlook.CreateItem(0)
' DESTINATAIRE 
Dim TO_Dest AsString
Dim i AsInteger
For i = 1 To MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Count
If TO_Dest <> "" Then TO_Dest = TO_Dest & "; "
TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Item(i)
Next
' DESTINATAIRE ( ENSEMBLE DE MAIL ) 
MonMessage.To = TO_Dest
MonMessage.CC = ""
' OBJET DU MESSAGE 
MonMessage.Subject = SUJET
' LE MESSAGE 
MonMessage.BODY = BODY
' AJOUT DE LA PIECE JOINTE ( CHEMIN COMPLET DEMANDEE ) 
If JOINTE <> "" Then
If Dir(JOINTE, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
MsgBox("fichier introuvable !", vbCritical, "Attention")
MonOutlook = Nothing
MonMessage = Nothing
ExitSub
EndIf
MonMessage.Attachments.Add(JOINTE)
EndIf
' ENVOI DE L'EMAIL 
MonMessage.Send()
MonOutlook.Quit()
MonOutlook = Nothing
MonMessage = Nothing
EndSub

mes erreurs sont en rouge et merçi

[Thomas Lebrun]

Il faut rajouter les références COM à Outlook

http://morpheus.developpez.com/vsto2/


A+

[souaddemaroc]

salut j'ai un autre probléme

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
PublicSub mail(ByVal GROUPE AsString, OptionalByVal JOINTE AsString = "", OptionalByVal SUJET AsString = "", OptionalByVal BODY AsString = "", OptionalByVal dest AsString = "")
' FONCTION PERMETTANT D'ENVOYER UN MAIL AVEC UNE PIECE JOINTE 
Dim MonOutlook AsNew Outlook.Application
Dim MonMessage As Outlook.MailItem
'Set MonOutlook = CreateObject("Outlook.Application") 
' CREATION D'UN NOUVEAU MESSAGE 
MonMessage = MonOutlook.CreateItem(0)
' DESTINATAIRE 
Dim TO_Dest AsString
Dim i AsInteger
For i = 1 To MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Count
If TO_Dest <> "" Then TO_Dest = TO_Dest & "; "
TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Item(i)
Next
' DESTINATAIRE ( ENSEMBLE DE MAIL ) 
MonMessage.To = TO_Dest
MonMessage.CC = ""
' OBJET DU MESSAGE 
MonMessage.Subject = SUJET
' LE MESSAGE 
MonMessage.BODY = BODY
' AJOUT DE LA PIECE JOINTE ( CHEMIN COMPLET DEMANDEE ) 
If JOINTE <> "" Then
If Dir(JOINTE, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
MsgBox("fichier introuvable !", vbCritical, "Attention")
MonOutlook = Nothing
MonMessage = Nothing
ExitSub
EndIf
MonMessage.Attachments.Add(JOINTE)
EndIf
' ENVOI DE L'EMAIL 
MonMessage.Send()
MonOutlook.Quit()
MonOutlook = Nothing
MonMessage = Nothing
EndSub

Maintenant j'ai cette erreur :
L'opérateur & n'est pas défini pour les types String et outlook.adressEntry

[souaddemaroc]

salut

Je ne sais pas quoi faire je suis vraiment bloqué Pour l'erreur que j'ai j'ai fait comme ça

Code :

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

1
2
3
4
5
TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item
 
("Contacts").AddressEntries.Item(GROUPE).Members.Item(i).Address

J'ai ajouter adresse dans la fin de l'instruction
mais malheureusement j'ai una autre erreur :Informations supplémentaires : Impossible d'exécuter l'opération. Impossible de trouver un objet.

dans la ligne

Code :

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

1
2
3
4
5
For i = 1 To MonOutlook.Session.AddressLists.Item
 
("Contacts").AddressEntries.Item(GROUPE).Members.Count

[abelman]

Code :

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

TO_Dest = TO_Dest & MonOutlook.Session.AddressLists.Item("Contacts").AddressEntries.Item(GROUPE).Members.Item(i).ToString()

[souaddemaroc]

salut et bah je me suis perdu je sais plus quoi faire ?????