ENVOIE EMAIL
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
FouBasic Messages postés 10 Date d'inscription samedi 23 août 2003 Statut Membre Dernière intervention 31 décembre 2008 - 16 févr. 2005 à 22:56
FouBasic Messages postés 10 Date d'inscription samedi 23 août 2003 Statut Membre Dernière intervention 31 décembre 2008 - 16 févr. 2005 à 22:56
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
https://codes-sources.commentcamarche.net/source/27052-envoie-email
16 févr. 2005 à 22:56
19 janv. 2005 à 18:51
C'est quoi précisement la fonction .SentOnBehalfOfName ?
BriBus...
19 janv. 2005 à 11:46
17 janv. 2005 à 03:29
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.
4 nov. 2004 à 02:14
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
4 nov. 2004 à 02:05
3 nov. 2004 à 17:26
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é.
26 oct. 2004 à 06:52
(J'ai aussi mis ce commentaire pour etre notifié si tu met ta source a jour)
25 oct. 2004 à 00:37
Merci ;)