Envoie email

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 301 fois - Téléchargée 34 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

FouBasic
Messages postés
10
Date d'inscription
samedi 23 août 2003
Statut
Membre
Dernière intervention
31 décembre 2008
-
Peut on mettre une image dans body ? de facon automatique sans mettre en piece jointe....
cs_AbriBus
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
5 -
C'est pas grave... ca arrive... ;)
C'est quoi précisement la fonction .SentOnBehalfOfName ?

BriBus...
PROTEUS91
Messages postés
156
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
28 décembre 2010
-
Si vous avez le droit a un message d'erreur de outlook qui veut demande de confirmer l'envoie j'ai aussi une parade...
PROTEUS91
Messages postés
156
Date d'inscription
mardi 4 novembre 2003
Statut
Membre
Dernière intervention
28 décembre 2010
-
Ok je voulais tout d'abord m'excuser pour cette source qui n'etais ni complete ni bien expliquer... Mais depuis le temps j'ai trouvé une solution a mon probleme...

Les declarations :
Private Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long


Le code a ajouter dans un boutton :
Set mailobj = CreateObject("Outlook.Application")
Set MAIL = mailobj.CreateItem(olMailItem)
With MAIL 'PREPARATION DE L'ENVOIE DU MAIL
.SentOnBehalfOfName = SentOnName
.To = 'DESTINATAIRE
.Subject = 'SUJET
.Body = 'CORPS DU MESSAGE
.Attachments.Add ('FICHIER JOINT)
.Send 'ENVOYER LE MESSAGE
End With

Encore desolé pour le ridicule du code en question.
cs_AbriBus
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
5 -
j'ai quelque chose mais c'est pas Super debutant... c pas tres dur mais faut comprendre...
si tu veux je te l'envoi par mail, je peux pas le poster comme ca ce n'est pas ni un tuto, ni une source

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.