Datenbereich in Outlook email

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Function Range2Html(oBereich As Range) As String 'Gibt den angegebenen Bereich als HTML zur?ck, incl.Bilder Dim sTmpDatei As String, sTmp As String, sTmpVz As String Dim iff As Integer, P As Long 'Bereich in Datei exportieren With oBereich sTmpVz = Environ$("temp") & "\" sTmpDatei = sTmpVz & Format(Now, "ddmmyy" & Int(Timer) * 10) & ".htm" .Parent.Parent.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=sTmpDatei, Sheet:=.Parent.Name, _ Source:=.Address, _ HtmlType:=xlHtmlStatic).Publish Create:=True iff = FreeFile Open sTmpDatei For Input As iff Range2Html = Replace(Input(LOF(iff), iff), "align=center x:publishsource=", _ "align=left x:publishsource=") Close iff 'Feststellen, ob auch Bilder im Bereich sind P = InStr(1, Range2Html, "

Hallo Alex,
man kann der Funktion Range2HTML nicht einfach einen modifizierten Bereich übergeben, das führt zwangsläufig zum gezeigten Fehler.
Leider weiß ich auch sonst nicht, wie man hier gefilterte Zeilen berücksichtigen kann.
Alternativ könntest Du mit dem Word-Editor arbeiten. Da kann man auch ausgeblendete Zeilen unberücksichtigt lassen. Hier ein Beispiel, nach dem Du Deinen code umbauen könntest.
Falls Du Probeleme haben solltest, zeige hier mal Deinen gesamten code.

[+][-]Sub Mail_BereichalsBild_Word2()

'Sendet Mail mit integriertem Bereich als Bereich mit Signatur

'Das Bild wird über das Kürzel ~ im Text platziert

 Dim WSh As Worksheet, WkS As Worksheet

 Dim sMailtext As String, sBild As String, sSignatur As String

 Dim sBer As String, iEinf As Integer

 sBer = "A3:G23"                            'Kopierbereich

 Set WSh = ThisWorkbook.Sheets("Tabelle1")  'Blatt mit Maildaten

 Set WkS = ThisWorkbook.Sheets("Tabelle2")  'Datenblatt

 On Error Resume Next

 Do

  WkS.Range(sBer).Copy                      'Bereich kopieren

   If Err.Number = 0 Then Exit Do

   Err.Clear

 Loop

 With CreateObject("Outlook.Application").CreateItem(0)

  .BodyFormat = 2                           '2=HTML-Format, 3=Richtext

  .Subject = WSh.Range("A2").Value          'Betreff

  .To = WSh.Range("A3").Value               'Empfänger

  .Cc = WSh.Range("A4").Value               'Kopie

   sMailtext = WSh.Range("A5").Value & ""

   sMailtext = Replace(sMailtext, "", vbLf) 'Umbrüche einfügen

  .GetInspector:  sSignatur = .htmlbody     'Signatur holen

  .htmlbody = Replace(sMailtext, vbLf, "<br>") & sSignatur

  .display

  iEinf = InStr(sMailtext, "~")

  If iEinf = 0 Then iEinf = Len(sMailtext)  'Grafik Einfügestelle

  With .GetInspector.WordEditor.Application.Selection

       .Start = iEinf: .End = iEinf

       .Paste                               'Grafik in Mail einfügen

  End With

 End With

End Sub

viele Grüße aus Freigericht
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbereich in Outlook email

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread