Envoie email

0/5 (10 avis)

Snippet vu 7 900 fois - Téléchargée 36 fois

Contenu du snippet

Ok alors, ce code est tout petit je sais, mais en fait si je le poste ici c'est parceque je me dis qu'il sera plus visiter qu'une simple question sur un forum. En fait, il me manque quelque chose, tous marche très bien il m'ouvre bien un nouveau mail avec tout ce que je lui demande de me mettre, mais je voudrais qu'il puisse aussi l'envoyer automatiquement (ne pas avoir a appuyer sur le boutton "Envoyer") et aussi pouvoir y associé un "fichier joint".

Source / Exemple :


Public Sub SendMail(Optional Address As String, Optional Subject As String, Optional body As String, Optional CC As String, Optional BCC As String)
    Dim strCommand As String
    If Len(Subject) Then strCommand = "&Subject=" & Subject
    If Len(body) Then strCommand = strCommand & "&Body=" & body
    If Len(CC) Then strCommand = strCommand & "&CC=" & CC
    If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC
    strCommand = "mailto:" & Address & strCommand
    Call ShellExecute(Me.hwnd, "open", strCommand, vbNullString, vbNullString, SW_SHOWNORMAL)

End Sub

Conclusion :


Mercu a tout ceux qui pourrait me faire des remarques constructives.

A voir également

Ajouter un commentaire Commentaires
Gwadaknight Messages postés 19 Date d'inscription vendredi 3 septembre 2004 Statut Membre Dernière intervention 4 novembre 2004
25 oct. 2004 à 00:37
Elle est complete la source ? On ne dirait pas ... Donc lorceque quelqun de beaucoup plus competant que moi t'aura aider je reviendra prendre la source COMPLETE que tu aura mise a jour ici :D

Merci ;)
cs_AbriBus Messages postés 492 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 25 avril 2007 5
26 oct. 2004 à 06:52
C'est vrai, c'est pas que personne ne veuille t'aider (surtout que ca doit pas etre tres difficile ce que tu veux faire, je crois bien avoir vu dans ce forum quelques sources qui le faisait) mais si tu donnes pas un peu plus d'info sur ton prog... ca va etre difficile...

(J'ai aussi mis ce commentaire pour etre notifié si tu met ta source a jour)
Tenerezu Messages postés 4 Date d'inscription jeudi 16 septembre 2004 Statut Membre Dernière intervention 22 août 2010
3 nov. 2004 à 11:07
En fait l'envoi automatique de mail par VB6 se fait très facilement via Outlook.
Il suffit d'ouvrir Outlook en caché et de renseigner le mail puis de l'envoyer automatiquement sans pas par ShellExecute().
Pour cela, ajoute dans ton projet VB6 la référence à Outlook et tu auras accès à tous les objets correspondant qui vont bien.
C'est un bypass mais pas la solution à ton problème, désolé.
cs_AbriBus Messages postés 492 Date d'inscription jeudi 28 août 2003 Statut Membre Dernière intervention 25 avril 2007 5
3 nov. 2004 à 17:26
oué mais ca sous entend 1/ qu'on a outlook et 2/ qu'on soit disposer a flinguer des ressources pour ca...
Gwadaknight Messages postés 19 Date d'inscription vendredi 3 septembre 2004 Statut Membre Dernière intervention 4 novembre 2004
4 nov. 2004 à 02:05
Oui moi je n'ai pas ootlock donc un autre system m'interesserai :s bien sure il faudrait que se soit comprehensible pour un super debutant :D

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.