Soyez le premier à donner votre avis sur cette source.
Snippet vu 14 987 fois - Téléchargée 41 fois
Sub Envoi_Mail() Dim App As Outlook.Application Dim Message, Pieces As Variant Dim Colonne As Integer Dim Fichier As String 'Création du message Application.StatusBar = "Création d'un message Outlook ..." Set App = CreateObject("outlook.application") Set Message = App.CreateItem(olMailItem) 'Ajout des pièces jointes Application.StatusBar = "Ajout des pièces jointes au message Outlook ..." Set Pieces = Message.Attachments For Colonne = ColDebut To (ColDebut + NbCol - 1) If (Cells(LgDebut - 2, Colonne).Value) <> 0 Then Fichier = Cells(LgDebut - 1, Colonne).Value & ".csv" Pieces.Add Repertoire & Fichier, _ olByValue, 1, Fichier End If Next Application.StatusBar = "Affichage du message Outlook" Application.StatusBar = "Prêt" Message.Display End Sub
Quelqu'un connait-il la proprieté à utiliser pour pouvoir écrire le corps du message en html?
Merci
Si le créateur avaitle fichier d'aide pour la prog vba outlook cela t'aiderait, moi je l'ai paumé. Tu trouveras des exemples qui pourront t'éclairer là-dessus sur mon sitehttp://xlbysteph.free.fr/aideinformatique/web.htm, je peux pas les coller là, j'ai pas accès à mon site ici.
bye
stephane
Il faut aussi dire qu'il faut ajouter la référence à MS Outlook 9.0 library dans le code VB
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.