Microsoft Excel

Herbers Excel/VBA-Archiv

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


Betrifft: Kopierten Text in E-Mail einfügen von: Urmila
Geschrieben am: 13.01.2010 15:44:58

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

  

Betrifft: AW: Kopierten Text in E-Mail einfügen von: mumpel
Geschrieben am: 13.01.2010 19:38:03

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é


  

Betrifft: AW: Kopierten Text in E-Mail einfügen von: Urmila
Geschrieben am: 14.01.2010 07:49:22

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


  

Betrifft: AW: Kopierten Text in E-Mail einfügen von: mumpel
Geschrieben am: 14.01.2010 09:57:25

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


  

Betrifft: AW: Kopierten Text in E-Mail einfügen von: Urmila
Geschrieben am: 14.01.2010 11:03:06

Danke für deine Hilfe,

der Link konnte mir weiterhelfen....

vielen lieben Dank und LG
Urmila


Beiträge aus den Excel-Beispielen zum Thema "Kopierten Text in E-Mail einfügen"