Einzelnes Arbeitsblatt mailen

Bild

Betrifft: Einzelnes Arbeitsblatt mailen
von: Claudio
Geschrieben am: 10.12.2003 16:36:36

hallo zusammen

gut möglich, dass meine frage schon zigmal gestellt wurde. habe auch mit "suchen" gesucht, aber nichts gefunden. also keine faulen sprüche,
freunde. es geht hier um die wurst ;-)

ich habe ein arbeitsblatt mit zahlreichen laschen programmiert. in jeder
lasche ist das immer gleiche formular abgebildet. ich möchte nun dem benutzer ermöglichen, ein einzelnes formular (z.B. Tabelle D) direkt von excel aus zu mailen. also nicht die ganze datei, sondern nur eine tabelle daraus.

wie könnte man sowas machen? herzlichen dank im voraus!
gruss, claudio

Bild


Betrifft: AW: Einzelnes Arbeitsblatt mailen
von: Karl-Otto Reimann
Geschrieben am: 10.12.2003 17:22:27

Hallo Claudio
Zum Anpassen:


Sub SendMessage()
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    With objOutlookMsg
         Set objOutlookRecip = .Recipients.Add("hans@herber.de")
        .Subject = "Dies ist ein Outlook-Test"
        .Body = ActiveSheet.Range("A1")
        .Importance = olImportanceHigh
        objOutlookRecip.Resolve
        .Send
    End With
    Set objOutlook = Nothing
End Sub


mfG KO


Bild

Beiträge aus den Excel-Beispielen zum Thema " Einzelnes Arbeitsblatt mailen"