Vb etMAPI

Un exemple récupérer sur le site de suppport Microsoft:

Symptômes

Je veux envoyer un message en utilisant Microsoft Visual Basic pour
Excel, dans Microsoft Exchange à un destinataire dont je connais
l'email.

Comment dois-je procéder ?

Résolution

Cette opération peut être réalisée via OLE Automation entre Microsoft
Visual Basic pour Excel et Microsoft Exchange.

Microsoft Exchange reconnaît OLE Automation. Donc ses objets OLE peuvent
être utilisés par d'autres clients OLE Automation, par exemple Microsoft
Visual Basic pour Excel.

L'exemple qui suit, montre comment envoyer un message dans Exchange à
partir de Microsoft Visual Basic pour Excel.

Il faut d'abord créer une session Mapi (MAPI.Session), puis faire la
connexion. Ensuite il faut rédiger le message et définir ses propriétés.
Les propriétés du message sont par exemple Subject (Titre) et Text (corps
du message).

Afin que le message soit envoyé automatiquement, sans que la boîte
Microsoft Exchange ne soit affichée, il faut mettre à faux la
propriété ShowDialog.

Pour réaliser cette opération, les conditions suivantes doivent être
réunies :

- un client Exchange doit être installé sur l'ordinateur.
- dans le module Visual Basic, la bibliothèque d'objets OLE/Messaging
1.0 Object Library doit être référencée (Fichier MDISP32.TLB dans le
répertoire Windows\System).

EXEMPLE :

#########################################################################
' Code Visual Basic anglais

'La procédure suivante va appeler la fonction SendMessage

Sub TEST()
SendMessage
End Sub

'/********************************************************/
' Fonction : SendMessage
' Objet : Comment créer un message et l'envoyer
'/********************************************************/

Function SendMessage()
Dim objSession As Object ' Session object
Dim objMessage As Object ' Message object
Dim objOneRecip As Object ' Recipient object

On Error GoTo error_olemsg

'Créé une session et fait la connexion.
'Le nom d'utilisateur et le mot de passe sont requis.
Set objSession = CreateObject("MAPI.Session")

'Choix du profil de l'utilisateur
objSession.Logon 'profileName:="Ella"

'Créé un message et définit ses propriétés
Set objMessage = objSession.Outbox.Messages.Add
objMessage.Subject = "Test" 'saisie du titre du message
objMessage.Text = "Bonjour." 'saisie du corps du message

'Créé le destinataire du message
Set objOneRecip = objMessage.Recipients.Add
objOneRecip.Name = "Tallak" 'saisie de l'email du destinataire
objOneRecip.Type = mapiTo
objOneRecip.Resolve

'Envoi du message et déconnexion
objMessage.Update
objMessage.Send showDialog:=False
MsgBox "Le message a été envoyé avec succès"
objSession.Logoff
Exit Function

'La routine de gestion d'erreur suivante permet d'afficher les
'messages d'erreur

error_olemsg:
MsgBox "Error " & Str(Err) & ": " & Error$(Err)
Exit Function

End Function

#########################################################################

PS

Je m'en suis servi pour envoyer un mail avec.

Si ça correspond à ce que tu cherches dis le moi et explique ton soucis.

Peut-être puis-je t'aider

PS

Bon la question première est de savoir si t'es obligé de te servir des MAPI, car il existe des
méthodes beaucoup plus simple.

Tu veux envoyer quoi?
Mail avec sujet-objet-fichiers joints...?
Avec quel type de système de messagerie (outlook, messenger)?
Dis moi tout ;.)

PS

Essaye ceci pour voir

Sub SendMail()

dim adresseString As String

adresseString = "mailto:" & "ton_adresse" & "?subject=" & "ton-sujet" & "&body=" & "ton_texte"
activeworkbook.followhyperlink address:=addressString

end Sub

PS

Oh, very sorry, grosse erreur de ma part...
ActiveWorkbook fait partie de la biblio Excel mais tu travailles avec Lotus, non!
Bon je regarde des infos sur MAPI et je te donnes les adresses.

PS

tu pourrais pas me donner du code avec lers mapi utilisés plutot

merci

vinnssou