letter via hyperlink excell

Version imprimable

11/09/2008, 11h35
will Igetit

letter via hyperlink excell

bnojour j'ai un fichier excell avec des hyperlinks de contact qui m'ouvrent une boite nouveua message sur outlook.
la base du message est toujours la meme je voulais savoir s'il etait possible que je gere ce message par vba (dans outlook ou excel?).

je n#ai pas de code a vous proposer parce que jusqu'a present je n'est fait de marco que sur excel ou access...
quelqu#un aura t il un code a proposer qui me ferait ganger beaucoup de temps:
(je l'utilise une cinquantaine de fois par jour)
11/09/2008, 14h47
Dolphy35

Bonjour,

Que veux-tu faire exactement en vba ? Tu dis qu'en cliquant sur le lien tu ouvre un nouveau message, si c'est ce que tu veux quel est l'intérêt de faire du VBA ??

sinon il y a la FAQ :fleche: http://outlook.developpez.com/faq/?page=VBA

ou ce tutoriel :fleche: Initiation au VBA d'Outlook

Dolphy ;)

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r, c    As Integer
 
    r = Target.Row
    c = Target.Column
   Dim J As Integer
For J = 1 To 65536
    If r = J And c = 4 Then
 
SendMail_Outlook()
 
   Else: End If
 Next J
 
'i = InputBox("input the  notionnal")
 
End Sub
 Function SendMail_Outlook()
                Dim ol As New Outlook.Application
                Dim olmail As MailItem
                Dim CurrFile As String
 
                 Set ol = New Outlook.Application
                 Set olmail = ol.CreateItem(olMailItem)
                 With olmail
                  .To = "rentre l'adresse du destinataire"
                  .Subject = "le sujet"
                  .Body = "ce que tu veux mettre dans le mail"
 
                  .Display '.Send
                  'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
                    End With
            End Function

mais cela ne fonctionne aps car je ne sais pas appele ma fonction dans le if

a l#endroit de "rentre l'adresse du destinataire"
je veux mettre le contenu d#une case d#un fichier excell est ce possible comment?

ce que j'ai est

Code:

.To = Workbooks("Copy of Contacts Collateral").Sheets("Contact").Cells(1, 4)

probleme comment mettre une cellule dans un fichier ootlok...
help

11/09/2008, 16h08
Dolphy35

re,

as-tu consulter ceci :fleche: http://excel.developpez.com/faq/?page=Messagerie

Dolphy ;)