Excel Tabelle - Mail versenden | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ich habe das selber nicht probiert,
vielleicht hilft es dir weiter...

zuerst muß eine neue tab erstellt werden:

dim newBlatt
Set newBlatt = Sheets.Add(Type:=xlWorksheet)
newBlatt.Name = wie du willst

dann die inhalte aus deiner verknüpften tabelle kopieren und in das neue einfügen

worksheets("deine verknüpfte tabelle").select
Cells.Select
Selection.Copy
worksheets("wie du willst").select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

und dann das ganze versenden!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim outl, Mail As Object

Application.DisplayAlerts = False
ActiveWorkbook.Save
Sheets("wie du willst").Copy
ActiveWorkbook.SendMail NAME DER EMAIL-ADRESSE, "Dein Betreff"
ActiveWindow.Close
Application.DisplayAlerts = True
End If
End Sub

es wird schon eine ganze Mappe verschickt,aber nur mit der im Makro angegebenen Tabelle.

nachfogendes Makro könnte man auch verwenden,hier wird der Inhalt einer Tabelle versendet.
Es kommt aber ein Fenster wo man "Zugriff gewähren für" aktivieren muß,dann muß man nochmals zweimal auf "JA" klicken.
gruß herbert

Sub SendMessage()
Application.DisplayAlerts = False
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    Dim intRow As Integer, intCol As Integer
    Dim strText As String
    intRow = 1
    intCol = 1
    With Worksheets("Tabelle3")
      Do Until IsEmpty(.Cells(intRow, intCol))
         Do Until IsEmpty(.Cells(intRow, intCol))
            strText = strText & .Cells(intRow, intCol) & " "
            intCol = intCol + 1
         Loop
         strText = WorksheetFunction.Trim(strText) & vbCrLf
         intCol = 1
         intRow = intRow + 1
      Loop
    End With
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
         Set objOutlookRecip = .Recipients.Add("hhai@nycomed.com")
         objOutlookRecip.Type = olTo
        .Subject = Format(Date, "dd.mm.yy") & " - " & Format(Time, "hh:mm:ss")
        .Body = strText
        .Importance = olImportanceHigh
        For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
        Next
        .Send
    End With
    Set objOutlook = Nothing
    Application.DisplayAlerts = True
End Sub

Beliebteste Forumthreads (12 Monate)

Excel Tabelle - Mail versenden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Tabelle - Mail versenden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread