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.
C'est quoi précisement la fonction .SentOnBehalfOfName ?
BriBus...
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.
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.