envoi mail avec objet et texte

Re : envoi mail avec objet et texte

Bonjour Stephane,

en descendant un peu plus bas sur cette page, tu trouveras la rubrique "Discussions similaires"

à+
Philippe

Re : envoi mail avec objet et texte

Bonjour Stéphane,

Avec ceci, peut-être :

A te relire

Martial

Re : envoi mail avec objet et texte

Bonjour,

pour l'objet j'ai réussi à modifier le nom du fichier comme ceci, étant donné que l'objet est le nom du fichier.

ActiveSheet.Copy

ActiveWorkbook.SaveAs Filename:="Liste de mes clients.xls"

ActiveWorkbook.SendMail Recipients:=admail 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True

Par contre je bloque sur le texte du message, car dans les exemples des discussions il s'agit de macros très différentes et dans la mienne le .body ne fonctionne pas !

Merci de me faire part de vos idées et bonne journée

Stephane

Re : envoi mail avec objet et texte

Martial,

merci pour la macro j'avais loupé l'objet texte, effectivement c'est parfait.

par contre je bloque pour la partie message du mail du type "Veuillez trouver ci-joint.."

Si tu as une autre super astuce je suis preneur !

Re : envoi mail avec objet et texte

j'ai trouvé une variante, mais le classeur actif ne part pas en pièce jointe !

la solution doit être dans le currfile mais je bloque !

Sub Mail_avis_essai_court()

'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String

Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("u30").Value
.Subject = Range("a10").Value
.Body = "Contenu " & Range("a2").Value
'.Display
.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub

Re : envoi mail avec objet et texte

Bonjour Stephane,

Une piste dans ce fil, avec .Attachments.Add Nomfichier

A+

Martial

Re : envoi mail avec objet et texte

Voila la solution

je recupere le nom de la feuille excel et l'adresse mail dans une variable, ensuite la macro extrait la feuille dans un fichier excel au nom aléatoire classeur....xls que je renomme ensuite la macro envoie les mails au kilomètre.

Dans mon cas il y a une boucle car j'ai 700 mails a envoyer.

Merci à tous pour votre aide toujours précieuse.

Sub Mail_avis_essai_court()

'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String


Sheets("cab").Select

Range("o2").Select

admail = ActiveCell.Value




Range("a2").Select

numcab2 = ActiveCell.Value


debut:
'admail = ActiveCell.Value


If numcab2 = "" Then Exit Sub


Sheets(numcab2).Select



ActiveSheet.Copy
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="Liste de nos adherents.xls"



Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = admail
.Subject = "liste de nos adhérents gérés par votre cabinet"



.Attachments.Add "Liste de nos adherents.xls"




'.Attachments.Add ActiveWorkbook
.Body = "Madame, Monsieur, Nous vous remercions par avance pour votre collaboration."

'.Display '
.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With

Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi

Sheets("cab").Select

ActiveCell.Offset(1, 0).Select
numcab2 = ActiveCell.Value

admail = ActiveCell.Offset(0, 14).Value

GoTo debut


End Sub