HELP!!!!! recuperation de l'expediteur lors de l'envois d'un mail sur outlook [Résolu]

Messages postés
7
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
19 novembre 2008
- - Dernière réponse : helios4505
Messages postés
7
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
19 novembre 2008
- 8 mars 2006 à 19:30
voila g un petit probleme je dois fair un programe en vba qui envois un mail avec un fichier join à des destinataires et a celui qui envois le mail (le truck c'est que c jamais la mm personne qui envois le mail)

Private Sub CommandButton1_Click()


Dim MonOutlook As Object
Dim monmessage As Object
Dim corps As String

Set MonOutlook = CreateObject("Outlook.Application")
Set monmessage = MonOutlook.CreateItem(olMailItem)

monmessage.to = "toto, titi"
'monmessage.CC =""
'monmessage.BCC = ""
'monmessage.Attachments.Add "repertoir ou se trouve le fichier"
monmessage.Subject = "test"

' Le corps du message est divisé en 3 lignes :
corps = "Bonjour,"
' Chr(13) & Chr(10) = Touche ENTER
corps = corps & Chr(13) & Chr(10) & Chr(13) & Chr(10)
corps = corps & "voici le corp du msg"
corps = corps & Chr(13) & Chr(10) & Chr(13) & Chr(10)
corps = corps & "Cordialement"
'corps = corps & Range("a1").Value

monmessage.Body = corps
monmessage.Send

Set MonOutlook = Nothing



End Sub
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18
3
Merci
Et ceci ?

monmessage.SenderEmailAddress





Manu

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18
0
Merci
Au passage, oubli les objets de type Object. Ca alourdit le programme.

Appelle un chat ... un chat :



Dim MonOutlook As Outlook.Application


Dim monmessage As Outlook.MailItem



Quand tu écris monObjet.
dans l'éditeur, il te propose des méthodes et des propriétés. Si
l'objet est du mauvais type (genre Object), il ne te proposera rien.


Manu
Messages postés
7
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
19 novembre 2008
0
Merci
merci a toi pour ces explication
en faite g utiliser une autre methode:
j'ai recuperer le user de la session windows active:

'recuperation du user de la session active
Set wshnetwork = CreateObject("WScript.Network")
user = wshnetwork.UserName

j'esper que ca aidera kkun