envoi piece jointe avec mail et corp de message

[tomtom59450]

Bonjour , j' aimerais créer une macro qui puisse envoyer un mail avec un fichier en piece jointe , dans ce mail j' aimerais y incorporer un message type (pour l' instant suis obilgé a faire du copier coller avec word==> le message est formté ==> gras couleur etc....)

j' ai deja regarder avec la fonction sendmail mais apparemment on peut pas mettre de corp de message

quelquun a une idée

merci d avance

 

[fredl]

Re : envoi piece jointe avec mail et corp de message

essaie ça!

Sub SendEMailwithAttachments()

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "adresse Email"
myItem.Subject = "envoi d'un fichier attaché"
myItem.Body = "ton corp de message"
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send
Set ol = Nothing

End Sub

 

[tomtom59450]

Re : envoi piece jointe avec mail et corp de message

merci ca marche
est ce que c possible d incorporer dans le sujet du message un texte word avec du gras et des couleurs?

merci

 

[fredl]

Re : envoi piece jointe avec mail et corp de message

Bonne question!
je n'ai malheureusement pas la réponse...
cela m'interesse donc.
Bonne journée
cdt
FL

 

[MichelXld]

Re : envoi piece jointe avec mail et corp de message

bonjour

voici quelques exemples de mise en forme dans le corps du message

Sub SendEMailwithAttachments()
Dim ol As Object, myItem As Object
Dim strHtml As String

strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<B><font size=6mm>" & _
"vous trouverez ci joint le fichier demandé</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & _
"<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("UserName")
strHtml = strHtml & ""

Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)

myItem.To = "adresse Email"
myItem.Subject = "envoi d'un fichier attaché"
myItem.HtmlBody = strHtml
'fichier en cours d'utilisation envoyé en attaché:
myItem.Attachments.Add ActiveWorkbook.FullName
myItem.Send

Set ol = Nothing

End Sub

bon apres midi
MichelXld

 

[tomtom59450]

Re : envoi piece jointe avec mail et corp de message

mercii ca marche, maintenant j essai de plancher sur une macro qui puisse aller chercher en fonction d un code client son adresse mail dans un otre classeur ;

Il faut utiliser la fonction find ou vlookup dans vba ?

merci

 

[smullycat]

Re : envoi piece jointe avec mail et corp de message

Bonjour,

Par rapport aux deux précédents codes j'ai une erreur sur le "MyItem.send".

Si quelqu'un sait.

Merci d'avance

Smullycat.

 

[degap05]

Re : envoi piece jointe avec mail et corp de message

Bonjour,

Pour n'envoyer que la feuille active, j'ai essayé ActiveSheet, mais cela ne fonctionne pas.

Merci.