Envoyer un mail avec mapisendmail

Soyez le premier à donner votre avis sur cette source.

Vue 12 467 fois - Téléchargée 1 575 fois

Description

Voici un tutoriel de ma composition explicant l'utilisation de MAPISendMail, fonction qui permet d'envoyer des mails avec pièces jointes etc...

Source / Exemple :


procedure TDelphifr.Fichier_Source_du_ProjetClick(Sender: TObject);

Begin

Zip.Open;
Zip.UnCompress;
Tutoriel.Read;
Prog.Make;

end;

Conclusion :


Je sais, c'est pas drôle !! Mais j'avais envie de m'éclater !! ;o)

Pour la fonction, elle n'envoie pas le mail à proprement parler... Il faut quand même qu'il y ait un prog de messagerie type Outlook ou Netscape Messenger...

Pour le niveau, je laisse 1, pasque je sais jamais quoi mettre...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
10
Date d'inscription
samedi 6 mars 2004
Statut
Membre
Dernière intervention
25 janvier 2009

Salut,

Fct. super bien sous Vista 32 et 64 (Windows Mail)
Par contre avec XP (Via Outlook Express 6) fait le même gelage que Bestiol et Gysmo.

J'ai testé les params de Outlook mais en vain.

Etienne
Messages postés
4
Date d'inscription
mardi 17 août 2004
Statut
Membre
Dernière intervention
22 juillet 2010

Je viens d'essayer d'exécuter ton prog tel quel, avec Outlook (2000).
Le message est bien créé mais le serveur le refuse: "501 Bad adress syntax ".

Si j'alimente MAPIRecip.lpszName avec l'adresse complète (nom@domaine) au lieu du nom d'utilisateur, ça passe.

A ton avis, y-a-t-il un paramètre Outlook qui soit la cause de ce phénomène?

Merci par avance.
Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
Si on enlève le flag MAPI_DIALOG, rien n'est affiché et Outlook met directement le mail dans la boîte d'envoi, on est bien d'accord ??

C'est une possibilité, mais j'aurais quand même préféré que l'on puisse retoucher le message... Pas grave !!

Merci de m'avoir informé de vos modifs !!
'lut !
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

Yes ca roule, ca venai bien du flag aussi (j'etais deja en envoi direct).
Regarde si toi Bestiol ca marche sans.
Sinon te faudra decouper ta procedure selon la version d'outlook, la chaud.

Babaille.
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
J'ai essayé ton prog, j'ai le même problème. Pour que ton source fonctionne mieux avec outlook express il faut supprimer le flag MAPI_DIALOG. Ensuite il faut configurer outlook pour envoyer les messages immédiatement :
Menu outilsOptions onglet envoyer : cocher la case "envoyer les messages immédiatement"
Comme ça c'est OK : quand on envoi un mail avec ton appli la boite 'envoyer recevoir' apparait de suite et envoie le mail sans passer par OutLook.
Afficher les 9 commentaires

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.