Thema Datum  Von Nutzer Rating
Antwort
Rot Excel nach Outlook
05.02.2024 19:35:46 Peter
NotSolved
06.02.2024 03:17:03 Gast76988
NotSolved
06.02.2024 08:00:44 Peter
NotSolved
07.02.2024 09:23:43 volti
NotSolved
07.02.2024 13:33:52 Alberfish
NotSolved

Ansicht des Beitrags:
Von:
Peter
Datum:
05.02.2024 19:35:46
Views:
516
Rating: Antwort:
  Ja
Thema:
Excel nach Outlook

Hallo

ich habe folgenden Code für das übetragen von einer Excelliste nach Outlook, die Excelliste wird gefiltern und und dann in Outlook kopiert,

Fehler daran ist das im Excel alle Zellen umrandet sind, wenn die Liste in Outlook erscheint ist die letzte Zeile aber nicht umrandet, an was liegt das.

Hoffe es kann mir hier jemand sagen warum.

DANKE Peter

Function RangetoHTML(rng As Range)
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "\" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False

        On Error Resume Next
        On Error GoTo 0
    End With
     
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.readall
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    TempWB.Close savechanges:=False

    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel nach Outlook
05.02.2024 19:35:46 Peter
NotSolved
06.02.2024 03:17:03 Gast76988
NotSolved
06.02.2024 08:00:44 Peter
NotSolved
07.02.2024 09:23:43 volti
NotSolved
07.02.2024 13:33:52 Alberfish
NotSolved