Herbers Excel-Forum - das Archiv

Email-Versand per Makro - Formatierung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Email-Versand per Makro - Formatierung
von: Mike

Geschrieben am: 24.03.2005 09:56:34
Guten Morgen!
Habe folgendes Problem:
Habe in meinem Tabellenblatt einen Button - wenn man diesen betätigt kopiert er einen bestimmten Teil des Tabellenblattes und versendet diesen per MAIL!
Nun zu meinem Problem:
Der Text in der ausgehenden Mail ist nicht richtig formatiert!(Spalten aus Originaltext werden nicht richtig dargestellt!)
Hier der Quellcode:
Option Explicit
Private Sub CommandButton1_Click()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
Dim stxt As String
'Verweis auf "Microsoft Forms 2.0 Object Library" aktivieren !!
'sonst geht es nicht
'Dataobject wird gebraucht wegen der Zwischenablage
Dim ClpObj As DataObject
For i = 1 To 1
Set ClpObj = New DataObject
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
'Excelbereich der versendet werden soll.
'Wenn kein Bereich versendet werden soll sondern
'der Bereich bereits kopiert wurde, können sie die
'nächsten beiden Zeilen auskommentieren
Range("A1:E56").Select
'Bereich wird in die Zwischenablage kopiert
Selection.Copy
With Nachricht
.Subject = "Berechtigungsstruktur - " & Range("H1").Value
'Zwischenablage wird eingefügt
ClpObj.GetFromClipboard
.Body = ClpObj.GetText(1)
.To = "E-MAIL Adresse"
.Send
Application.CutCopyMode = False
Range("A1").Select
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Auf Outlook warten. Ist nicht schnell genug :-))
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub

Danke euch schon im Vorhinein!
MFG MIKE
Bild

Betrifft: AW: Email-Versand per Makro - Formatierung
von: Franz D.
Geschrieben am: 26.03.2005 18:42:55
Hallo Mike!
Wie wär's mit Anhang?
Beispiel: FLYER = "C:\TEMP.XLS" oder "TEMP.DOC"
Im Code ergänzen: Nachricht.attachments.Add FLYER
Vielleicht eine Alternative.
Frohe Ostern
Franz D.
 Bild
Excel-Beispiele zum Thema "Email-Versand per Makro - Formatierung"
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile Jahreskalender und bedingte Formatierung
Bedingte Formatierung auslesen Über die bedingte Formatierung den Minimalwert markieren
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern Bedingte Formatierung in Abhängigkeit eines Zellkommentars
Markierung von Formeln über bedingte Formatierung Zelleinträgen über die Formatierung Spaltennamen hinzufügen