Discussion :

[Filipozzi]

Bonjour, étant débutant et complétement perdu dans cette programmation, j'aimerai de ma BDD pouvoir envoyé un mail en cliquant sur le liens, j'ai ce code qui fonctionne :

Code :

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

1
2
3
4
5
Private Sub EMail_Click()
'permet d'envoyer un mail simplement, avec du texte brut
     Application.FollowHyperlink "mailto:" & [EMail]
 
End Sub

Par contre j'ai besoin d'aide car, j'aimerai que l'expéditeur soit une autre adresse ex : toto@-----.be et que le sujet du message reprenne dans une table nommée police le numéro inscrit dans le champs "Police".

d'avance un grand merci de votre aide et bonne journée.

Alain

[Jean-Philippe André]

Salut,

un exemple pour répondre à quelques unes de tes questions :

Code :

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

1
2
3
"mailto:toto@tata.com?subject=Ton Sujet qui dechire&body=Ton corps de mail" & _
"&cc=tutu@tata.com" & _
"&bcc=titi@tata.com"

Maintenant si tu veux aller plus loin sur le from par exemple, je te recommande de piloter outlook ou de passer par un CDO.

[Filipozzi]

Bonjour et merci de votre aide, ayant un parcouru les tutto, j'ai repris un code que j'ai un peu bidouiller, mais étant débutant, il y a des erreurs, pouvez-vous m'aider à comprendre le comment. Ci-dessous 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
 'Ajouter les références suivantes :
'Microsoft Outlook
'Microsoft DAO
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oDB As DAO.Database
Dim strContenu As String
Dim oRst0 As DAO.Recordset
Dim strTo As String
Dim sqlMail As String
 
 
Set oDB = CurrentDb
Set oApp = CreateObject("Outlook.Application")
'Crée un nouveau message
sqlMail = "SELECT  * FROM MessagesCli;"
Set oMail = oApp.CreateItem(olMailItem)
oMail.To = oRst0.Fields("Mail")
oMail.Body = "Client :" & oRst0.Fields("txtcorps")
oMail.Subject = oRst0.Fields("strObjet") & " du " & oRst0.Fields("dtCrea")
 
'Envoi le mail
oMail.Display
'ferme le curseur
oRst0.Close
Set oRst0 = Nothing
Set oDB = Nothing
Set oApp = Nothing

L'erreur est : code 91 - Variable objet ou variable de bloc with non définie.

Encore Merci. Alain

[Jean-Philippe André]

Hello,

il te manque la ligne qui permet de recuperer les lignes de ta requete dans le recordset

Code :

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

1
2
3
4
5
6
7
oRst0 =CurrentDb.OpenRecordset(sqlMail)
Do Until oRst0.EOF
oMail.To = oRst0.Fields("Mail")
'
'
oRst0.MoveNext
Loop