PDA

Vollständige Version anzeigen : Mail


Bubaco
12.07.2006, 14:46
hi leutz,

hab diesen code mal per copy - paste in mein macro eingefuegt. das dumme ist nun ich das ich es nun leicht verändert haben moechte.

wenn ich nun ueber das macro die mail losschicke, schickt er mir
die aktuelle datei komplett aber ohne die aktuellen daten (die ich vorher eingetragen habe) mit. ich brauche aber nur ein sheet daraus.

wer kann mir den code bitte so anpassen, das er bei ausfuehrung nur das entsprechende sheet mit den aktuellen daten abschickt. Die datei sollte aber nicht gspeichert werden, da es sich um eine Vorlage handelt

das sheet, das verschickt werden soll heisst "output"

Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Mein Betreff"
.Body = "Mein Text"
.To = a
'.cc = "Mein Copy-Verteiler"
.Attachments.Add ThisWorkbook.FullName
End With
Mail.send
Set Mail = Nothing
Set outObj = Nothing


bitte um dringende hilfe

gruss
michael

Hajo_Zi
12.07.2006, 14:49
Hallo Michael,


Actives Register mailen einschl. VBA)
Sub EmailActiveSheet()
ActiveWorkbook.Worksheets("Test").Copy
ActiveWorkbook.******** Recipients:="Test@web.de", _
Subject:="aktive Tabelle" ‚ Betreffs Zeile
‘ActiveWorkbook.Close savechanges:=False
End Sub


<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="30" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="30" alt="Homepage"></a>