Thema Datum  Von Nutzer Rating
Antwort
Rot E-Mail senden aus Tabelle
 04.04.2019 08:47:36 Aaron
NotSolved
08.04.2019 07:42:34 Aaron
NotSolved
09.04.2019 14:48:47 Aaron
NotSolved
12.04.2019 09:02:24 Benny
NotSolved
16.04.2019 14:10:18 Aaron
NotSolved
30.04.2019 07:48:19 Aaron
NotSolved

Ansicht des Beitrags:
Von:
Aaron		 Datum:
04.04.2019 08:47:36		 Views:
1065		 Rating:
     
Antwort:
  Ja
Thema:
E-Mail senden aus Tabelle

Hallo Zusammen,

Ich habe ein Problem, Ich versuche den Bereich A1:F21 als String zu machen jedoch funktioniert das ganze nicht. Früher habe ich den .Body per c&p gemacht was funktioniert hat jedoch fehlerhaft war.

Jetzt habe ich das ganze abgeändert das es per Variable funktioniert was er jedoch nicht will.

Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Email()
Dim objOutlook As Object
Dim objMail As Object
Dim Text As String
 
 
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Text = Range("1:23").Value ' Hier ist der fehler
' Range("A1:F23").Select
'    Selection.Copy
With objMail
   .To = "egal"
   .CC = "egal"
   .Subject = "!"
   .Display
    .GetInspector
    .HTMLbody = Text & .HTMLbody
   ' Application.Wait (Now + TimeValue("0:00:02"))
   ' Application.SendKeys "^(v)"
End With
'        SendKeys "{NUMLOCK}", True
End Sub

Grüße,

Aarom

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
Rot E-Mail senden aus Tabelle
 04.04.2019 08:47:36 Aaron
NotSolved
08.04.2019 07:42:34 Aaron
NotSolved
09.04.2019 14:48:47 Aaron
NotSolved
12.04.2019 09:02:24 Benny
NotSolved
16.04.2019 14:10:18 Aaron
NotSolved
30.04.2019 07:48:19 Aaron
NotSolved