helios4505
Messages postés7Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention19 novembre 2008
-
9 févr. 2006 à 08:14
helios4505
Messages postés7Date d'inscriptionvendredi 4 mars 2005StatutMembreDernière intervention19 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:
HELP!!!!! recuperation de l'expediteur lors de l'envois d'un mail sur outlook
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 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.