Merci
Denis POISSON
email : p_d...@club-internet.fr
Hope it helped
Tenebrax
You wanna see what a bug is?: visit http://graff.ctw.net and download Graff
beta 1.03L (now available in both french and english!!!)
En tout cas, merci pour la référence MS-Press, j'irai voir de quoi il
retourne.
Bon, ben si tu peux fournir quelques éclaircissements, de la doc, une
édition d'occase de Inside OLE, ce genre de choses, je te remercie d'avance.
Denis
Voir MSDN :
Apercu des objets Outlook :
Office 2000 developer documentation/Microsoft Office 2000 Déveloper
Object Model guide/Office applications/Microsoft Outlook 2000
Exemple VBA pour Outlook :
Office 2000 developer documentation/Microsoft Office 2000 Visual basic
Programmer's guide/Part 2/Chapter 5/Working with Microsoft Outlook
Objects
Exemples tirés de MSDN :
===========================================
' Declare global Outlook Application and NameSpace variables.
' These are declared as global variables so that they need not
' be re-created for each procedure that uses them.
Public golApp As Outlook.Application
Public gnspNameSpace As Outlook.NameSpace
Function InitializeOutlook() As Boolean
' This function is used to initialize the global Application and
' NameSpace variables.
On Error GoTo Init_Err
Set golApp = New Outlook.Application ' Application object.
Set gnspNameSpace = golApp.GetNamespace("MAPI") ' Namespace object.
InitializeOutlook = True
Init_End:
Exit Function
Init_Err:
InitializeOutlook = False
Resume Init_End
End Function
Function CreateMail(astrRecip As Variant, _
strSubject As String, _
strMessage As String, _
Optional astrAttachments As Variant) As Boolean
' This procedure illustrates how to create a new mail message
' and use the information passed as arguments to set message
' properties for the subject, text (Body property), attachments,
' and recipients.
Dim objNewMail As Outlook.MailItem
Dim varRecip As Variant
Dim varAttach As Variant
Dim blnResolveSuccess As Boolean
On Error GoTo CreateMail_Err
' Use the InitializeOutlook procedure to initialize global
' Application and NameSpace object variables, if necessary.
If golApp Is Nothing Then
If InitializeOutlook = False Then
MsgBox "Unable to initialize Outlook Application " _
& "or NameSpace object variables!"
Exit Function
End If
End If
Set golApp = New Outlook.Application
Set objNewMail = golApp.CreateItem(olMailItem)
With objNewMail
For Each varRecip In astrRecip
.Recipients.Add varRecip
Next varRecip
blnResolveSuccess = .Recipients.ResolveAll
For Each varAttach In astrAttachments
.Attachments.Add varAttach
Next varAttach
.Subject = strSubject
.Body = strMessage
If blnResolveSuccess Then
.Send
Else
MsgBox "Unable to resolve all recipients. Please check " _
& "the names."
.Display
End If
End With
CreateMail = True
CreateMail_End:
Exit Function
CreateMail_Err:
CreateMail = False
Resume CreateMail_End
End Function
Bon quand je parle de MSDN, c'est la version de MSDN sur CD, tu peux
effectivement t'abonner pour 200$ l'an (MSDN library) et tu reçois les CD (3
cd actuellement) ou un DVD, au choix. Mais quand tu achètes Visual C++ tu
reçois une version de MSDN, elle est pas top récente, mais tout est dedans.
Mais chose interressante Microsoft offre 1 an d'abonnement gratuit à MSDN
pour tous les posseseurs de licence Visual C++ pro (ou VB pro, etc...), il
faut aller voir sur le site, j'espère que c'est encore valable...
Quand je parlais d'inside OLE, c'est parce que justement dans MSDN y'a des
book online, autrement dit, c'est le bouquin en complet que tu peux lire
(mais parfois, vaut mieux une version papier...).
Le chemin que je te donnais était l'arbre qu'il fallait ouvrir dans MSDN
(edition Avril 2000) pour accéder à la doc sur les interfaces automation
d'Outlook.
Quand à Inside OLE, qui est épuisé, il faut s'en remettre à Inside COM, qui
est (si je ne me trompe pas...) la nouvelle version d'Inside OLE. Sinon je
pense qu'il doit y avoir d'autre livre de Microsoft Press sur Automation, je
n'ai pas de titre en tête mais ça vaudrait la peine de se documenter... si
tu veux mon avis perso, prend des bouquins de MS-Press, et evité les
Micro-Application, Sybex et autre... en général il leur faut 14.000 page
pour expliquer que pour faire ça il faut aller chercher un OCX payant sur
tel site...
Le site MSDN Online (http://msdn.microsoft.com) contient tous ce que tu
trouves dans le MSDN version CD, donc normalement tu devrais trouver, mais
bon lire la doc en étant connecté, personnellement j'en ai pas les moyens,
les 200$ à payer deviennent vite rentable... mais MSDN online, c'est aussi
beaucoup d'autre chose (je trouve d'ailleurs que leur ASP sont bien
lentes... et que c'est vite le bordel sur leur site...).
Dernière chose, si tu t'interresses juste à piloter Outlook depuis une autre
app, c'est peut-être pas utile d'investir dans un bouquin genre Inside COM,
en effet, c'est pas très compliqué... je pense qu'il y'a moyen de se
débrouiller sans... (en mattant les exemples de VC).
Voilà, j'espère que ça t'auras un peu éclairé.