ich möchte aus Excel heraus den Befehl
DATEI -
SENDEN AN -
MAILEMPFÄNGER -
SENDET DAS AKTUELLE BLATT ALS TEXTKÖRPER
in einem Excel-Makro verwenden. Kennt jemand den Befehl im VBA-Code?
DATEI -
SENDEN AN -
MAILEMPFÄNGER -
SENDET DAS AKTUELLE BLATT ALS TEXTKÖRPER
in einem Excel-Makro verwenden. Kennt jemand den Befehl im VBA-Code?
vielleicht hilft Dir das weiter:
Mit Sub ohne wird der Inhalt (nur die Werte) in ein neues TB kopiert und über Sub senden versandt.
Sub Senden()
'
Application.ScreenUpdating = False
Sheets("Tabellenblatt1").Select
Sheets("Tabellenblatt1").Activate
Call ohne
ActiveWorkbook.SendMail Recipients:="adresse@adresse.de", _
Subject:="Muster" & " " & Range("A1").Value ‚ ‘ Bezeichnung in A1 oder andere Zelle
Sub ohne()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Gruß; Georg
BEARBEITEN
INHALTE EINFÜGEN
FORMATIERTER TEXT (RTF)
einfüge.
diese Info stammt von Hans aus dem Archiv.
Möchtest Du den Text als Nachricht senden, für den nachfolgenden Code in ein
allgemeines Modul ein und aktiviere in der Entwicklungsumgebung über Menü
EXTRAS / VERWEISE / die Microsoft Outlook 8.0 Object Library. Das Makro
weist Du einer Schaltfläche im Tabellenblatt zu, selektierst den zu
versendenden Bereich und startest den Code.
Sub Senden()
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 W. Herber")
objOutlookRecip.Type = olTo
.Subject = "Testsendung"
.Importance = olImportanceHigh
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
Selection.Copy
SendKeys "^v"
.Display
End With
Set objOutlook = Nothing
End Sub
Gruss; Georg
diese Routine fügt in den Mailbody nichts ein, obwohl ich vorher einen bestimmten Bereich selektiert und kopiert habe..
bei mir funktionierts. Hast Du in der Entwicklungsumgebung VBA "Microsoft Outlook 8.0 Object Library" aktiviert?
Gruß; Georg