Discussion :

[will Igetit]

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)

[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 http://outlook.developpez.com/faq/?page=VBA

ou ce tutoriel Initiation au VBA d'Outlook


Dolphy

[will Igetit]

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
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 :

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

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

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

[Dolphy35]

re,

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


Dolphy