Envoi mail avec piece jointe

[BRUNO62]

Bonsoir,

J'ai besoin d'aide.
Dernièrement j'ai ouvert une discussion sur le forum à propos de ma demande.
Sans résultat.
J'ai passé du temps à rechercher une solution que je n'arrive toujours pas trouver.
C'est la raison pour laquelle je reformule différement ma demande.
Je désire envoyer un mail avec une pièce jointe via lotus.
La macro vient du site, l'envoi se fait par contre la pièce jointe n'est pas avec.
Avez vous une idée.
Par avance merci
A+

 

[tototiti2008]

Re : Envoi mail avec piece jointe

Bonjour Bruno,

oui, j'ai bien une idée : il faut enregistrer ton classeur avec ta copie de feuille et mettre en pièce jointe le fichier enregistré

 

[camarchepas]

Re : Envoi mail avec piece jointe

Bonjour Bruno et Tototiti,

en effet Tototiti toujours aussi juste, plus un truc ou 2 dans la syntaxe .

Voici : (Testé dans un environnement spécifique, il est préférable de modifier ton original)

ATTENTION : Le chemin du fichier est peut être à redéfinir

.AppendText "********************************************"
End With

'Partie à modifier
NomFichier = "C:\temp\Courant.xls"
Sheets("Feuil1").Copy
ActiveWorkbook.SaveCopyAs Filename:=NomFichier
ActiveWorkbook.Close False
Set AttachME = MailDoc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject(1454, "", NomFichier, "Attachment")
'Fin de modif


'Envoi du document
Call MailDoc.Send(False)

 

[BRUNO62]

Re : Envoi mail avec piece jointe

Bonsoir, bonsoir tototiti2008 et camarchepas.

Merci, à vous DEUX.
C'est OK !

a+

 

[raphde]

Envoie automatique fichier excel en piece jointe via Lotus Note

Bonjour,

Je souhaite faire une petite macro Excel qui me permet à l'aide d'un bouton Excel d'envoyer directement le fichier en pièce jointe à 2 destinataires déjà prédéfini (Commercial (qui est une liste dans mon carnet d'adresse), xxxx@yyy.com).

Merci beaucoup pour votre aide.

Ci-joint le Fichier