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:
130
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:

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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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