Email-Versand per Makro - Formatierung

• Email-Versand per Makro - Formatierung von Mike vom 24.03.2005 09:56:34
• AW: Email-Versand per Makro - Formatierung - von Franz D. am 26.03.2005 18:42:55

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

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.

Beiträge aus den Excel-Beispielen zum Thema "Email-Versand per Makro - Formatierung"