Thema Datum  Von Nutzer Rating
Antwort
31.01.2018 13:39:29 Tobias
NotSolved
31.01.2018 14:10:29 Gast52378
NotSolved
Rot RangetoHTML Code von Ron de Bruin Laufzeitfehler 1004
31.01.2018 14:26:43 Tobias
NotSolved

Ansicht des Beitrags:
Von:
Tobias		 Datum:
31.01.2018 14:26:43		 Views:
560		 Rating:
     
Antwort:
  Ja
Thema:
RangetoHTML Code von Ron de Bruin Laufzeitfehler 1004

Hallo,

ich rufe sie über folgenden Sub auf im Htmlbody.

LG

Sub MailSenden()

   Dim objNachricht As Object
   Dim objMail As Object
   Dim rngBereich As Range
   
   Set rngBereich = Worksheets("Overview").Range("A1:J37")
   Set objMail = CreateObject("Outlook.Application")
   Set objNachricht = objMail.CreateItem(0)
   
   With objNachricht
       .To = "xyz mail adresse"
       .Subject = ActiveWorkbook.Worksheets("Overview").Range("M7")
       .HtmlBody = "Sehr geehrte Damen und Herren," & vbLf & RangetoHTML(rngBereich)
       .ReadReceiptRequested = False
       .display
       '.send
   End With
   
   Set objNachricht = Nothing
   Set objMail = Nothing
   Set rngBereich = Nothing
   
End Sub

 

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
31.01.2018 13:39:29 Tobias
NotSolved
31.01.2018 14:10:29 Gast52378
NotSolved
Rot RangetoHTML Code von Ron de Bruin Laufzeitfehler 1004
31.01.2018 14:26:43 Tobias
NotSolved