Discussion :

[revemane]

bonsoir le forum,

j'ai réaliser un formulaire sur lequel se trouve un bouton qui envois un mail
dont 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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Dim stDocName As String

Dim MonOutlook As Object

Dim MonMessage As Object

Dim Corps As String

 

Set MonOutlook = CreateObject("Outlook.Application")

Set MonMessage = MonOutlook.CreateItem(0)

MonMessage.To = " "

MonMessage.Subject = "Nouvel incident dans votre zone"

'Définit un message HTML

MonMessage.BodyFormat = olFormatHTML

'Ecrit bonjour en gras

Corps = "<b>Bonjour !</b>"

'Saute deux lignes

Corps = Corps & SAUTLIGNE & SAUTLIGNE

'Ecrit le reste de l'entete

Corps = Corps & "<div>Pour votre information, je vous envoie nouvel un incident dans votre zone,</div> Merci de le prendre en charge</p>"

Corps = Corps & SAUTLIGNE

Corps = Corps & "<div>Bonne lecture</p>"

Corps = Corps & SAUTLIGNE

Corps = Corps & Chr(13) & Chr(10)

Corps = Corps & "<div><b>Emetteur: </b>" & Me.TBL_emetteur_nom.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE & SAUTLIGNE

Corps = Corps & "<div><b>Incident n°: </b>" & Me.ID_incidents.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE

Corps = Corps & "<div><b>Date de l'incident: </b>" & Me.Date.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE

Corps = Corps & "<div><b>Secteur: </b>" & Me.Secteur.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE

Corps = Corps & "<div><b>Catégorie: </b>" & Me.Categorie.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE

Corps = Corps & "<div><b>Description de l'incident: </b>" & Me.incident.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE & SAUTLIGNE & SAUTLIGNE & SAUTLIGNE

Corps = Corps & "<div><b>Pris en charge par: </b>" & Me.TBL_pilote_nom.Value & Chr(13) & Chr(10)

Corps = Corps & SAUTLIGNE

 

 

MonMessage.HTMLBody = Corps

MonMessage.Send

Set MonOutlook = Nothing

 

End Select

se que j'aimerai réaliser c'est de pouvoir choisir le destinataire
donc plutot que de mettre une adresse mail a la suite de monmessage.to
que outlook s'ouvre pour pouvoir inscrire soit meme l'adresse du destinataire tout en gardant le text de mon message

merci pour votre aide

[Simplifi]

hello
il suffit d'avoir l'adresse mail dans une zone de texte et dans ce cas

Code :

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

1
2
MonMessage.To = " " 'devient
MonMessage.To = nom_de_la_zone_avec_l_adresse

ou bien en allant chercher l'adresse dans une table

Code :

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

MonMessage.To = dlookup("adresse_mail","table_contacts","N°_contact = " & N°contact)

par exemple