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:
718		 Rating:
     
Antwort:
  Ja
Thema:
RangetoHTML Code von Ron de Bruin Laufzeitfehler 1004

Hallo,

ich rufe sie über folgenden Sub auf im Htmlbody.

LG

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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