PDA

Vollständige Version anzeigen : VBA-Code: Einzelne Tabelle aus Excel per eMail verschicken


Amarel
04.11.2005, 11:14
Mit
ActiveWorkbook.********

wird ja die gesamte Excel-Datei verschickt, ich möchte aber nur eine Auswahl bzw ein Tabellenblatt verschicken (Unterschiedliche Themen, an unterschiedlichen Personen)

Wie erreiche ich den Versand nur einer Auswahl/Tabelle?
Für ActiveSheet gibt es ja kein ********

Grüße Amarel

flokk
04.11.2005, 11:40
Schau mal hier rein, am ende wir dein Problem besprochen.

http://www.herber.de/forum/archiv/148to152/t148461.htm

Lumpensammler
04.11.2005, 12:02
Hallo, Amarel,

bei Ron de Bruin auf Example Code for sending mail from Excel (http://www.rondebruin.nl/********.htm) nachsehen.

Gruß
LS

hurricane65
04.11.2005, 12:20
Moin Amarel,
ich kann Dir dieses Addin empfehlen, ist ein tolles Teil :) sehr hilfreich nicht nur für's mailen. Addin (http://blog.livedoor.jp/andrewe/archives/13508471.html)

Websend
04.11.2005, 13:07
Hallo Amarel,
hier der von Dir gesuchte Code. Hier sind es allerdings bis zu 3 Tabellenbereiche aus einer Tabelle. Den Code musst Du natürlich entsprechen Deinen Bedürfnissen anpassen.

Gruß


Private Sub Mailversand_3_Tabellenbereiche()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim sAdress As String

Application.ScreenUpdating = False
Set rng1 = Range("A63:J86")
Set rng2 = Range("A125:J187")
Set rng3 = Range("A384:J408")
sAdress = Range("B1").Value
Workbooks.Add 1
rng1.Copy Range("A24")
rng2.Copy Range("A47")
rng3.Copy Range("A1")
Range("A5:I5").Select
ActiveWorkbook.******** Worksheets "@xyz.de", " Betreff"
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Set rng3 = Nothing
Set rng2 = Nothing
Set rng1 = Nothing
Application.ScreenUpdating = True
End Sub

Silvestro
04.11.2005, 14:04
Ciao Amarel,

versuche es mal hiermit:

Sub ********()
Dim outObj As Object
Dim Mail As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs "C:\windows\temp\anhang.xls"
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Hier den Betreff eingeben"
.Body = "Hier, falls du einen Text im Body haben möchtest"
.To = "Hier die E-Mail Adresse eintragen"
.Attachments.Add "C:\windows\temp\anhang.xls"
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub


Ciao Silvestro