Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.12.2024 17:25:12
07.12.2024 16:21:30
07.12.2024 15:22:10
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Email-Versand per Makro - Formatierung
24.03.2005 09:56:34
Mike
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email-Versand per Makro - Formatierung
26.03.2005 18:42:55
Franz
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.
Anzeige

249 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige