VBA: Générer un mail avec pièces jointes

S

SVri

Guest
Bonjour à tou(te)s !

Je suis à la recherche d'exemples de code permettant de générer des emails avec pièces jointes (par ex. l'email du dest. est dans la col. A, le chemin des PJ est dans la co. B, ...)

J'ai consulté le fichier C:\Program Files\Microsoft Office\Office\Samples\SAMPLES.XLS (Merci Thierry dans "monexcel-downloads.xls"!), mais rien sur les PJ !

Merci et bonne journée !
 
@

@+Thierry

Guest
Bonsoir

euh oui ... where is the attachment dans tout çà ?

Par contre c'est quelle utilité ce code (je n'ai pas essayé)
Set rng = Range("A1").CurrentRegion
For iCol = 1 To rng.Columns.Count
For iRow = 1 To rng.Rows.Count
sBody = sBody & rng.Cells(iRow, iCol) & " "
Next iRow
Next iCol
c'est pour écrire dans le message ?

@+Thierry
 
D

dIDIER 2

Guest
merci thierry

Mauvais mon anglais, trés trés mauvais, moi pas aimer la langue des cheques qu'y expire. moi préférer le patoi bien d'chez nous.....pardieu
un bon ptit calandos avec un ptit bourgogne de derriere les fagots, la vie est tout de suite plus agréable.

treve de plaisanterie
C'est pour ainsi dire la même formul que j'utilise actuelement avec mailto
ça bug
plein de fenetre netscape qui s'ouvre en double, et il n'y a que le nom du destinataire qui apparait dans la boite d'envoie.

Il doit y avoir une astuce, certain y arrivent, pourquoi pas nous ?
On doit pouvoir contourner la dificulté, en créant netscape en boite a lettre par default le temps de l'envoie (ou en passant par dessus Mapi), puis en rétablisant les anciens parametres).
Car c'est la que se situe le noeux du prblme (boite d'envoie par default")

Netscape ne m'a pas l'air en cause ou trés peu.

cordialement
didier
 
A

A_Binouze_Drinker_Among_Others

Guest
bonjour

avec des sendkeys et un raccourci sur une ligne de commande netscape
du genre : c:\program files\netscape.exe /quelquechosepourcreerunnouveaumail

ce ne serait pas beau je sais ;-)
 

Discussions similaires

Statistiques des forums

Discussions
315 127
Messages
2 116 497
Membres
112 765
dernier inscrit
SIDIANW