Envoi mail avec contenu feuille

BRUNO62 · 3 Juin 2010

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 · 4 Juin 2010

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 · 5 Juin 2010

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 · 5 Juin 2010

Re : Envoi mail avec contenu feuille

Re,

Un exemple très classique de concaténation :

Code:

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 · 5 Juin 2010

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 · 7 Juin 2010

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 · 8 Juin 2010

Re : Envoi mail avec contenu feuille

Bonjour BRUNO62,

BRUNO62 à dit:
J'ai récupéré sur le forum cettre macro (...)

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

Quand on écrit :

Code:

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 :

Code:

.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 :

Code:

.SaveAs TempFilePath & TempFileName & FileExtStr

A+

BRUNO62 · 8 Juin 2010

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+

Envoi mail avec contenu feuille

BRUNO62

XLDnaute Occasionnel

Pièces jointes

BRUNO62

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

BRUNO62

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

BRUNO62

XLDnaute Occasionnel

Discussions similaires

Envoi mail avec contenu feuille

XLDnaute Occasionnel

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency