Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopierten Text in E-Mail einfügen | Herbers Excel-Forum

Kopierten Text in E-Mail einfügen
13.01.2010 15:44:58
Urmila

Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel

Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer
month = Format(Date, "MM")
year = Format(Date, "YYYY")
Set OutLookJob = CreateObject("Outlook.Application")
Set mymail = OutLookJob.CreateItem(0)
With mymail
.To = ""
.Subject = "Liste für " & month + 1 & "/" & year
.body = "Hallo," & vbCr & vbCr & _
"die Liste den Monat " & month + 1 & "/" & year & " wurde erstellt." & vbCr & _
"Hier ist der Link für die Datei zum Editieren:" & vbCr & vbCr & _
"....Text" & vbCr & vbCr & _
'hier soll der kopierte Text aus Excel eingefügt werden.....
"Gruß" & vbCr & _
"Urmila"
.display
End With

Wie könnte ich hier vor dem Grußformel einen aus Excel kopierten Text einfügen bzw. eher kopierte Zellen
Danke und LG
Urmila

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierten Text in E-Mail einfügen
13.01.2010 19:38:03
mumpel
Hallo!
Indem Du jede Zelle separat angibst. Hier ein Beispiel:
Sub MailErstellen()

Dim OutLookJob As Object

Set OutLookJob = CreateObject("Outlook.Application")

    With OutLookJob.CreateItem(0)
        .To = ""
        .Subject = "Liste für " & "0" & Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY")
        .htmlBody = "Hallo,<br><br>" & "die Liste den Monat " & "0" & _
                    Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY") & " wurde erstellt.<br>" & _
                    "Hier ist der Link für die Datei zum Editieren:<br><br>" & _
                    "....Text<br><br>" & Range("A1") & " " & Range("A2") & " " & Range("A3") & _
                    "<br><br>Gruß<br>Urmila"
        .display
    End With

End Sub
Code eingefügt mit VBA in HTML 2.0
Zweite Möglichkeit wäre, aus den Zellinhalten zuerst einen anklickbaren Link erstellen welcher dann in htmlBody angegeben wird.
Sub MailErstellen()

Dim olApp As Object
Dim olLink As String

Rem Hier wird der Link erstellt 
olink = "C:\Eigene Dateien\" & Range("A1") & ".xlsx"

Rem Ab Hier wird die Mail erstellt 
Set olApp = CreateObject("Outlook.Application")

    With olApp.CreateItem(0)
        .To = ""
        .Subject = "Liste für " & "0" & Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY")
        .htmlBody = "Hallo,<br><br>" & "die Liste den Monat " & "0" & _
                    Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY") & " wurde erstellt.<br>" & _
                    "Hier ist der Link für die Datei zum Editieren:<br><br>" & _
                    "....Text<br><br>" & "<a href=""" & olink & """>Hier herunterladen</a><br><br>Gruß,<br>Urmila"
        .display
    End With

End Sub
Code eingefügt mit VBA in HTML 2.0
Gruß, René
Anzeige
AW: Kopierten Text in E-Mail einfügen
14.01.2010 07:49:22
Urmila
Hi,
zwar meinte ich kopierten Text einfügen aber ich denk, da hast du mir auch auf eine neue Idee gebracht.
Danke dir aber schon mal für die zwei codes.
Sollte einer vll wissen wie man einen kopierten text einfügen kann, wäre das suuuper.....
danke und lg
Urmila
AW: Kopierten Text in E-Mail einfügen
14.01.2010 09:57:25
mumpel
Versuch es mal so. Du musst zuvor einen Verweis auf die Microsoft Forms 2.0 Object Library setzen.
Sub MailErstellen()

Dim OutLookJob As Object
Dim nClipboardText As New DataObject
Dim olText As String

nClipboardText.GetFromClipboard
olText = nClipboardText.GetText(1)

Set OutLookJob = CreateObject("Outlook.Application")

    With OutLookJob.CreateItem(0)
        .To = ""
        .Subject = "Liste für " & "0" & Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY")
        .HTMLBody = "Hallo,<br><br>" & "die Liste den Monat " & "0" & _
                    Format(Date, "MM") + 1 & "/" & Format(Date, "YYYY") & " wurde erstellt.<br>" & _
                    "Hier ist der Link für die Datei zum Editieren:<br><br>" & _
                    "....Text<br><br>" & olText & "<br><br>Gruß<br>Urmila"
        .Display
    End With

End Sub

Code eingefügt mit VBA in HTML 2.0
Was genau hast Du eigentlich vor? Wenn Du einen Zellbereich "im Original" einfügen möchtest, dann liese Dir mal das folgende Tutorial druch. Word und Excel (2000 bis 2007): Als Emailanhang
Anzeige
AW: Kopierten Text in E-Mail einfügen
14.01.2010 11:03:06
Urmila
Danke für deine Hilfe,
der Link konnte mir weiterhelfen....
vielen lieben Dank und LG
Urmila

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige