Mapi - message outlook express

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 282 fois - Téléchargée 26 fois

Contenu du snippet

Pour envoyer un email de facon automatique avec le composant MAPI de vb, rien de plus simple ! [voir le code suivant, nécessite un controle session (mpiSession) et message (mpiMailTo)]

Le problème vient de l'automatisation du process (alertes ...) car outlook express demande confirmation par popup avant envoi du message.
Pour l'en empêcher, éditer la clé suivante dans la base de registre, et la mettre à 0

[HKEY_CURRENT_USER\Identities\{E0517484-429C-4C5A-BC79-9CA8AEB3656D}\Software\Microsoft\Outlook Express\5.0\Mail]
"Warn on Mapi Send"=dword:00000001" ----> dword:00000000"

Source / Exemple :


.mpiSession.UserName = [login]
        .mpiSession.Password =  [motdepasse]
        .mpiSession.SignOn
        .mpiMailTo.SessionID = .mpiSession.SessionID

        .mpiMailTo.Compose
        .mpiMailTo.MsgIndex = -1
        For idest = 0 To [NbDestinataires]- 1
            .mpiMailTo.RecipIndex = idest
            .mpiMailTo.RecipAddress = [@destinataire]
        End If
        Next
        .mpiMailTo.MsgSubject = [sujet]
        .mpiMailTo.MsgNoteText = [corps du message]
        .mpiMailTo.AttachmentPathName = [fichier attaché]
        .mpiMailTo.Send False
        .mpiSession.SignOff

Conclusion :


et c'est tout !

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de shubang

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.