HELP!!!!! recuperation de l'expediteur lors de l'envois d'un mail sur outlook

Résolu
helios4505 Messages postés 7 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 19 novembre 2008 - 9 févr. 2006 à 08:14
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
A voir également:

3 réponses

econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
9 févr. 2006 à 10:46
Et ceci ?

monmessage.SenderEmailAddress





Manu
3
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
9 févr. 2006 à 10:50
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
0
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
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
0
Rejoignez-nous