Envoi mail avec contenu feuille

[BRUNO62]

Bonsoir,

J'ai consulté le forum et j'ai trouvé une macro qui me conviendrai par contre elle fonctionne très bien avec outLook mais pas avec lotus.

J'ai pu voir au travers des posts que la question en intitulé revient souvent.
J'ai passé du temps à rechercher mais sans aucun résultat.

Avez vous une solution ?

Si non, j'en ai une autre qui correspondrait à mo,n application par contre je n'arrive pas à adapter le contenu de la feuille 2 rangé en "A1😀10"
Sub tt()



Msg = ""
Msg = Msg & "CCCCCC " & ActiveWorkbook.Name & " a été traitée." & vbCrLf
Msg = Msg & "BBBBB" & vbCrLf

Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

ad = "toto@tata.com"

HyperLien = "mailto:" & ad & "?cc=" & "zae@tata.com,rt@tata.com"
HyperLien = HyperLien & "&Subject=" & Objet & " (à " & Time() & ")"
HyperLien = HyperLien & "&Body=" & Msg
ActiveWorkbook.FollowHyperlink HyperLien
End Sub


Merci, de votre aide.
Bonne soirée.
A+

 

[BRUNO62]

Re : Envoi mail avec contenu feuille

Bo.soir,

En regardant dans le forum j'ai trouvé cette macro qui correspond à ce que j'attends par contre cela ne fonctionne toujours pas. Le mail est envoyé sans le contenu !

Sub EnvoiUnMail()
Dim MailAd As String
Dim msg As String
Dim Subj As String
Dim URLto As String
Dim MonMessage As Object

MailAd = Sheets("Feuil1").Range("B3") 'emplacement de l'adresse mail
Subj = Sheets("Feuil1").Range("B4") 'emplacement du titre du mail
msg = Sheets("Feuil2").Range("A1😀10") 'corps du mail Copier la zone défini et l'insérer dans le mail .

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Avez vous une idée ou cela cloche.
Merci, d'avance.
A+

 

[job75]

Re : Envoi mail avec contenu feuille

Bonjour BRUNO62,

La variable msg est une matrice correspondant à la plage A1: D10.

Pour que ce soit pris en compte correctement, il faut une variable contenant une chaîne de caractères.

Donc travailler cette variable en concaténant toutes les cellules.

Evidemment comme séparateurs intercaler des espaces et/ou des retours à la ligne Chr(10).

A+

 

[job75]

Re : Envoi mail avec contenu feuille

Re,

Un exemple très classique de concaténation :

Dim cel As Range
'----
For Each cel In Sheets("Feuil2").Range("A1:D10")
  msg = msg & cel & IIf(cel.Column < 4, " ", Chr(10))
Next
msg = Application.Trim(msg) 'supprime tous les espaces inutiles

A+

 

[BRUNO62]

Re : Envoi mail avec contenu feuille

Bonjour, bonjour job75

Merci, pour ta solution.
En fait, je souhaiterai insérer le contenu (FORMAT) en plage "A1😀10"

Merci, d'avance
Bonne soirée.
A+

 

[BRUNO62]

Re : Envoi mail avec contenu feuille

Bonsoir,

J'ai récupéré sur le forum cettre macro qui envoi automatiquement sous lotus le contenu défini en feuille 1.
Cela, ne fonctionne pas. J'ai une erreur '1004' La méthode 'SaveAs' Workbook a échoué.
Avez vous une idée.
Merci, d'avance A+

 

[job75]

Re : Envoi mail avec contenu feuille

Bonjour BRUNO62,

J'ai récupéré sur le forum cettre macro (...)

Faut se méfier des macros qui trainent n'importe où 🙂

Quand on écrit :

If Val(Application.Version) < 12 Then
   
   ' You are using Excel 2007.
   FileExtStr = ".xlsx": FileFormatNum = 51
End If

FileExtStr et FileFormatNum sont définis seulement pour Excel 2007 (en supposant que le format 51 existe bien sur la version utilisée).

Pour une autre version Excel, ils auront respectivement les valeurs "" et 0...

Alors bien sûr ceci coince :

.SaveAs TempFilePath & TempFileName & [COLOR="Red"]FileExtStr[/COLOR], FileFormat:=[COLOR="red"]FileFormatNum[/COLOR]

Edit : en fait normalement seul FileFormatNum fait buguer, écrivez ceci, ça devrait aller mieux :

.SaveAs TempFilePath & TempFileName & FileExtStr

A+

 

[BRUNO62]

Re : Envoi mail avec contenu feuille

Bonsoir, bonsoir Job75

Merci, pour l'info.
Néanmoins, j'ai modifié et rien ne se passe.

Apparement vu les "posts" à ce sujet je pense que cela est vraiment particulier avec lotus !

A+