Discussion :

[cortex024]

lol...

voila pourquoi je trouvais cet article "bizar" dans mon tout premier message, parce qu'on se servait d'un programme, ici outlook et que je craignais ce que je viens de voir ici....

Je vais chercher de mon coté les correspondances dans lotus par rapport à ici outlook...

Et en attendant, si qq'un peut m'indiquer une methode qui n'utilise pas vraiment de programme comme outlook, je suis preneur

[Domi2]

Bonjour,

Regarde peut-être ici, la dernière fonction

Domi2

[voyou]

Cet article de caféine peut-être, ça t'aide?

[francishop]

Bonsoir;

' ---
' Exemple d'envoi simple via outook (Ne pas oublier de référencer...)
' ---
'
Function OutlookMail(ByVal strDest As String, _
strSujet As String, _
strMsg As String)

Dim olApp As Outlook.Application
Dim miEmail As Outlook.MailItem
Dim rcDest As Outlook.Recipient

' Initialiser un objet Outlook
Set olApp = New Outlook.Application

' Créer le message
Set miEmail = olApp.CreateItem(olMailItem)

' Renseigner le message
With miEmail
' Destinataire
Set rcDest = .Recipients.Add(strDest)
rcDest.Type = olTo

' Sujet et corps du message
.Subject = strSujet
.Body = strMsg

' Afficher le message
.Display
' .Send
End With

' Libérer les objets
Set miEmail = Nothing
Set olApp = Nothing
End Function

Cordialement

[mcdotta]

Hello,


As-tu déclaré une référence vers Microsoft Outlook (dans ton visual editor, Outils - Références...)