envoi mail outlook

[vinc26]

bonjour
j'ai trouvé ce code
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Msg As String

'Crée l'objet Outlook
Set OutlookApp = New Outlook.Application


'Obtenir les données
Subj = 'Votre prime annuelle'
'Recipient = cell.Offset(0, -1).Value
EmailAddr = 'mon mail'
Bonus = Format(cell.Offset(0, 1).Value, '0,000 €')

'Composer le message
Msg = 'Bonjour '

'Créer l'élément de mail et le transmettre
Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = EmailAddr
.Subject = Subj
.Body = Msg
.Send
End With

le probleme c'est quil ne connait pas Outlook.Application
je ne sait pas commen mettre cette bibliotheque je l'ai pas trouvé dans mes macros complementaire et j'ai bien outlook 2003 d'installer
merci pour les infos

 

[wally]

Bonjour vinc26 et le forum,

Dans l'éditeur VBA, tu cliques sur Outils/Références et tu sélectionnes 'Microsoft Outlook 11.0 Object Library'.


wally