Envoi mail + insérer data ds la corps du mail???

myDearFriend!

XLDnaute Barbatruc

• 9 Août 2006

• #2

Re : Envoi mail + insérer data ds la corps du mail???

Bonjour Askan,

Pour qu'on puisse tenter d'"ajouter du code à tes lignes" encore faudrait-il qu'on ait connaissance de tes lignes...

Cela dit, pour ce type de problème (et bien d'autres !), je ne t'enverrai pas voir dans un autre site, il y a tout ici, une seule référence :
La page Wiki 3 de MichelXLD


Cordialement,

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 9 Août 2006

• #3

Re : Envoi mail + insérer data ds la corps du mail???

Désolé...ci-joint le code modifié un peu pour tenter d'insérer des données en objet et corps

Le code pour Corps fonctionne mais des que je rajoute le code en subject ...ça ne marche plus??!!

Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = "toto.tintin@wanadoo.fr"
MonMessage.cc = "tata.tutu@yahoo.com"
MonMessage.Attachments.Add "Y:\.....\fichier.xls"
MonMessage.Subject = "Produit estimé à " & Round(Sheets("Estimation").Cells(33, 3).Value, [2]) & Round(Sheets("Estimation").Cells(35, 4).Value, [2])
' Le corps du message est divisé en 2 lignes :
Corps = "Bonjour,"
' Chr(13) & Chr(10) = Touche ENTER
Corps = Corps & Chr(13) & Chr(10)
Corps = Corps & "Produit estimé à " & Round(Sheets("Estimation").Cells(33, 3).Value, [2]) & "soit " & Round(Sheets("Estimation").Cells(35, 5).Value, [2])
MonMessage.body = Corps
MonMessage.send
Set MonOutlook = Nothing
End Sub

je souhaite mettre la date et mois en subject aussi??
Subject : Produit estimé au 31/01 à (data.xls) soit variation (data.xls)

Merci

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 9 Août 2006

• #4

Re : Envoi mail + insérer data ds la corps du mail???

Re,

"Le code pour Corps fonctionne" dis-tu...

A vrai dire je ne vois pas bien comment tu passes de :
"Produit estimé à " & Round(Sheets("Estimation").Cells(33, 3).Value, [2]) & "soit " & Round(Sheets("Estimation").Cells(35, 5).Value, [2])
à
Produit estimé au 31/01 à (data.xls) soit variation (data.xls)

Pourquoi des crochets autour de "[2]" ?
Pourquoi un arrondi ?
Qu'y a t'il exactement dans les cellules C33 et E35 ?
Et si aucune de ces cellules ne contient la date souhaitée, quelle date veux-tu voir apparaître ?

Soit plus clair si tu veux de l'aide...

Cordialement,

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 10 Août 2006

• #5

Re : Envoi mail + insérer data ds la corps du mail???

Bonjour,

Alors 2 choses, mon problème se situe au niveau de l'objet du message et non au niveau du coprs du message...
J'arrive à récupérer les données afin de les insérer dans le corps du message:

Corps = Corps & "Produit estimé à " & Round(Sheets("Estimation").Cells(33, 3).Value, [2]) & "soit " & Round(Sheets("Estimation").Cells(35, 5).Value, [2])


Par contre, s'il s'agit de l'objet du message je ne récupère pas les données. C'est justement là ou se trouve mon problème. Je souhaite insérer aussi en sujet des données à récupérer du fichier xls :

MonMessage.Subject = "Produit estimé à " & Round(Sheets("Estimation").Cells(33, 3).Value, [2]) & Round(Sheets("Estimation").Cells(35, 4).Value, [2])

Ce code ne marche pas!!
Donc comment modifier ce code afin d'insérer dees données du fichier xls en objet du message? est-ce possible?

Merci

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 10 Août 2006

• #6

Re : Envoi mail + insérer data ds la corps du mail???

bonjour Askan , bonjour ami Didier

Ce code ne marche pas!!

Cliquez pour agrandir...

peux tu préciser quel est le message d'erreur


j'ai testé ta procedure et ça fonctionne sans probleme ( OfficeXP)


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 11 Août 2006

• #7

Re : Envoi mail + insérer data ds la corps du mail???

Bonjour,

Merci pour ta réponse...toujours dans la continuité, comment pourais-je intégrer une condition qui dirait:
Si nous sommes lundi envoyer le fichier du vendredi et le reste de la semaine prendre le fichier J-1
Plus clairement, ci-dessous une partie du code (ça marche!!)

Dim StrDate As String
StrDate = Sheets("Estimation").Cells(2, 3).Value
StrDate = Mid(StrDate, 1, 2) & Mid(StrDate, 4, 2)
MsgBox (StrDate)
MonMessage.Attachments.Add "Y:\...\nomdufichier" & StrDate & ".xls"

Chaque fichier est daté comme (jjmm)...4 caractères, je souhaite donc:
Si lundi, récupérer le fichier de vendredi
Si mardi, récupérer le fichier de lundi
Si mercredi....mardi
Que pour les jours ouvrés...Qq un a t il une idée svp???Et surtout où intégré le code...
Merci

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 11 Août 2006

• #8

Re : Envoi mail + insérer data ds la corps du mail???

Bonjour


Pourquoi ouvrir un 2e fil pour la même problématique ?

https://www.excel-downloads.com/threads/inserer-la-date-courante-avecvba.65624/

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 11 Août 2006

• #9

Re : Envoi mail + insérer data ds la corps du mail???

Didier,

Tu n'aurais pas plutot la réponse à la question....???Merci

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 12 Août 2006

• #10

Re : Envoi mail + insérer data ds la corps du mail???

bonjour Askan , bonjour cher Didier

Tu n'aurais pas plutot la réponse à la question....???Merci

Cliquez pour agrandir...

Askan, il y a un minimum de règles à respecter sur le forum XLD ...

Lien supprimé

(voir le chapitre 4)



bonne journée
MichelXld

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 16 Août 2006

• #11

Re : Envoi mail + insérer data ds la corps du mail???

Askan à dit:

Plus clairement, ci-dessous une partie du code (ça marche!!)

Dim StrDate As String
StrDate = Sheets("Estimation").Cells(2, 3).Value
StrDate = Mid(StrDate, 1, 2) & Mid(StrDate, 4, 2)
MsgBox (StrDate)
MonMessage.Attachments.Add "Y:\...\nomdufichier" & StrDate & ".xls"

Chaque fichier est daté comme (jjmm)...4 caractères, je souhaite donc:
Si lundi, récupérer le fichier de vendredi
Si mardi, récupérer le fichier de lundi
Si mercredi....mardi
Que pour les jours ouvrés...Qq un a t il une idée svp???Et surtout où intégré le code...

Cliquez pour agrandir...

Comment pourrai-je écrire cette condition if date par ex??
Pourriez-vous m'aidez sur ce code svp? Je cherche à écrire cette condition sous VBA

Merci

 

Vote positif 0 Vote négatif

A

Askan

XLDnaute Nouveau

• 29 Août 2006

• #12

Re : Envoi mail + insérer data ds la corps du mail???

Bonjour le forum,

Qq'un aurait-il la réponse à ma question ? SVP....

 

Vote positif 0 Vote négatif