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.
25 oct. 2004 à 00:37
Merci ;)
26 oct. 2004 à 06:52
(J'ai aussi mis ce commentaire pour etre notifié si tu met ta source a jour)
3 nov. 2004 à 11:07
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é.
3 nov. 2004 à 17:26
4 nov. 2004 à 02:05
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.