ENVOIE EMAIL

Signaler
Messages postés
19
Date d'inscription
vendredi 3 septembre 2004
Statut
Membre
Dernière intervention
4 novembre 2004
-
Messages postés
10
Date d'inscription
samedi 23 août 2003
Statut
Membre
Dernière intervention
31 décembre 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/27052-envoie-email

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....
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...
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...
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.
Afficher les 10 commentaires