(Débutant)Envoyer un mail sur simple clic [Résolu]

[fanico11]

Bonjour,

Pardon d'avance si la réponse que je cherche se trouve dans la FAQ ou ailleurs, mais je ne comprend pas.

J'ai des clients dans ma base de donnée. ces clients ont une adresse de messagerie internet (j'ai définie cette donnée comme un lien hypertexte). Je voudrai qu'en cliquant sur l'adresse du client ça m'ouvre Outlook avec l'adresse du client dans le destinataire... bref comme c censé fonctionner quoi!!

Je sais que c'est quelquechose de facile à faire, mais je me creuse la tête sans succès depuis hier...

La zone de texte dans laquelle apparait le mail du client s'appelle : MailPersonnelClient

Voila, donc ma procédure commence par :

Code :

Private Sub MailPersonnelClient_Click()

mais là je sais pas du tout quoi faire...

quelqu'un veut il bien expliquer cette chose si simple à quelqu'un d'ignorant comme moi??? MEA CULPA !!

merci d'avance à tous

[naphta]

Salut,

Pour envoyer un mail

DoCmd.SendObject ...

A+

[jpcheck]

Hello,
tout le code est disponible dans la FAQ : http://access.developpez.com/faq/?page=Outlook#outlook
bonne lecture

[fanico11]

J'ai trouvé ce code dans la FAQ :

Code :

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
Public Sub CreateEmail( _
    Recipient As String, _
    Subject As String, _
    Body As String, _
    Optional Attach As Variant)
 ' -------------------------- 
    Dim I As Integer
    Dim oEmail As Outlook.MailItem
    Dim appOutLook As Outlook.Application    
 
    ' créer un nouvel item mail
 
    Set appOutLook = New Outlook.Application
    Set oEmail = appOutLook.CreateItem(olMailItem)
 
    ' les paramètres
 
    oEmail.To = Recipient
    oEmail.Subject = Subject
    oEmail.Body = Body 
 
    If Not IsMissing(Attach) Then
 
       If TypeName(Attach) = "String" Then
 
             ' s'il y a des pièces jointes
            oEmail.Attachments.Add Attach
 
        Else
 
            For I = 0 To UBound(Attach) - 1
            oEmail.Attachments.Add Attach(I)
 
            Next
 
        End If
 
    End If
 
    ' envoie le message
    oEmail.Send
 
    ' détruit les références aux objets
    Set oEmail = Nothing
 
    Set appOutLook = Nothing
 
End Sub

Mais je n'y comprend vraiment rien ...

Que dois-je mettre précisément dans ma procédure Private Sub MailPersonnelClient_Click() pour simplement ouvrir Outlook en cliquant sur l'adresse mail de mon client et ce de manière à afficher cette adresse dans le destinataire? Je n'ai pas besoin du sujet, des pièces jointes... juste d'ouvrir la messagerie avec l'adresse du client en cliquant sur cette dernière !

Je sais, je suis vraiment plus que débutant... encore pardon !!

merci d'avance !

[fanico11]

J'ai enfin trouvé la solution...

J'explique pour les ignorants dans mon genre (c tellement bête que personne n'a pris la peine de me le dire): si vous avez des champs "mail" laissez les de type texte et vous tapez mailto: devant l'adresse.
par exemple:
mailto:sandra@hotmail.com

et en cliquant dessus vous serez automatiquement dirigé vers votre messagerie dans laquelle l'adresse sur laquelle vous venez de cliquer apparaîtra dans la case "destinataire" !!!!!!!!

Trop simple pas vrai ?? Fallait le savoir, c tout !

Oh, g trouvé autre chose: vous pouvez éviter d'avoir à taper "mailto:" à chaque fois. Pour cela, créez une procédure évennementielle Avant MAJ dans laquelle vous tapez le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MailPersonnelClient_AfterUpdate()
 
  Dim MonEmail As String, ValRech As String, AdrEmail As String
  ' Format du line E-Mail
  MonEmail = Me.MailPersonnelClient.Value
  MonEmail = Left(MonEmail, InStr(1, MonEmail, "#") - 1)
  ValRech = "#mailto:"
  If Left(MonEmail, 8) <> ValRech Then
    AdrEmail = "mailto:" & MonEmail
    Me.MailPersonnelClient.Value = "#" & AdrEmail & "#"
  End If
 
End Sub

il vous suffit de remplacer "MailPersonnelClient" par le nom de votre champ de type texte contenant les adresses mails

voila, si ça peut aider quelqu'un !!! Parce que personne n'a pu m'expliquer ça, aussi simple que c !!!
C sûrement pour ça d'ailleurs, personne n'avait pu imaginer que je ne savai pas cela...

voili, voilou, merci quand même à tous ceux qui m'ont aidé et à tous ceux qui m'aideront...

[samia21]

Bonjour,
J'ai aussi ce problème! et je n'ai toujours pas réussi a le résoudre malgrès mes recherches!!
j'aimerai qu'en cliquant sur les adresses mails répertoriés dans ma base, je puisse envoyer un mail depuis lotus notes.
Vous pouvez m'aider?
merci