Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbereich in Outlook email

Forumthread: Datenbereich in Outlook email

Datenbereich in Outlook email
10.08.2020 11:35:31
Alex
Hallo ich benutze einen VBA Code um Daten in Outlook zu kopieren,
meine Frage dazu kann man den Code auch so schreiben dass er sich auf den Bereich des gesetzten Filters bezieht ? Aktuell lese ich A2:U40 aus.
Code:
.Subject = "Titel- " & Format(Date, "dd.mm.yyyy") ' Mein Betreff 19.03.2020
.GetInspector
.htmlbody = Replace(sMailText, vbLf, "
") _
& Range2Html(ThisWorkbook.Sheets("Sheet2").Range("A2:U40")) & .htmlbody
.display
End With
End Sub
Vielen Dank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich in Outlook email
10.08.2020 11:43:26
peterk
Hallo
Ungetestet:
Range2Html(ThisWorkbook.Sheets("Sheet2").Range("A2:U40").SpecialCells(xlCellTypeVisible))
AW: Datenbereich in Outlook email
10.08.2020 11:49:19
Alex
Irgendwas passt ihm nicht, ich habe die Stelle mit dicker Schrifft markiert
' .Bcc = ""
.Subject = "Titel- " & Format(Date, "dd.mm.yyyy") ' Mein Betreff 19.03.2020
.GetInspector
.htmlbody = Replace(sMailText, vbLf, "
") _
& Range2Html(ThisWorkbook.Sheets("Sheet2").Range("A2:U2500").SpecialCells(xlCellTypeVisible))
.display
End With
End Sub 
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, "

Anzeige
AW: Datenbereich in Outlook email
10.08.2020 12:36:40
peterk
Hallo
SpecialCells funktioniert leider wirklich nicht, versuch folgendes:

Dim lastCell As String
lastCell = ThisWorkbook.Sheets("Sheet2").Range("A2:U2500").SpecialCells(xlCellTypeLastCell). _
Address
& Range2Html(ThisWorkbook.Sheets("Sheet2").Range("A2:" & lastCell)

Anzeige
AW: Datenbereich in Outlook email
10.08.2020 13:13:07
Alex
Hmm erstmal Danke für die Tipps, ich denke ich löse dass nun das ich die werte zu dem Datum in einem extra Sheet anzeigen lasse und diese dann mit dem alten Code ins Outlook übertrage.
Nochmal Danke Gruss
AW: Datenbereich in Outlook email
10.08.2020 12:50:07
volti
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

Anzeige
;

Forumthreads zu verwandten Themen

eMail aus Outlook in Excel einlesen
Heinzs

Hallo,
ich möchte eine in Outlook in einem bestimmten Ordner angekommene eMail in Excel weiterverarbeiten, d.h. wenn bestimmter Absender und bestimmter Betreff in bestimmten Ordner und bestimmtes Empfangsdatum vorliegt dann soll der Emailbody in die Exceltabelle ans Ende angefügt werden.
21.01.2009 15:36:17
Thread-ID: 1042242
3 Beiträge
Kopierten Text in E-Mail einfügen | Herbers Excel-Forum
Urmila
Hallo alle zusammen,
und schon habe ich eine andere Frage...
Mit dem folgenden Code generiere ich eine E-Mail im Excel Dim OutLookJob As Object, mymail As Object, month As Integer, year As Integer month = Format(Date, "MM") year = Format(Date, "YYYY") Set OutLookJob = CreateObject("Outlook....
13.01.2010 15:44:58
Thread-ID: 1129549
5 Beiträge
gesamten Inhalt einer Tabelle mit Outlook mailen
Lorenz

Hallo werte Excelianer.
Ich schaffs einfach nicht den kompletten Inhalt eine Tabelle (inkl. Bild(er), Images ect..) zu mailen.
Im Anhang die Datei mit einem der Makros die ich schon probiert habe ich schon erfolglos probiert habe.
kann bitte jemand den Code dahingehend trimmen?
...
15.02.2010 17:32:08
Thread-ID: 1138682
3 Beiträge
E-Mail Senden via Outlook: From beeinflussen
Holger,

Hallo liebes Forum,
ich habe mehrere Makros geschrieben, in denen automatisch eine E-Mail versendet wird.
Klappt wunderbar und alle aus dem Team benutzen dies.
Einziges Problem:
Als Absender erscheint natürlich immer der jeweilige Name und da die E-Mail eine reine
Informati...
03.02.2011 16:56:40
Thread-ID: 1198847
3 Beiträge
Einfach termin in Outlook einfügen
Sebastian

Hallo,
ich suche eine Möglichkeit wie ich einen Termin in Outlook über Excel einfügen kann.
Ich habe in den Zellen
A1 = Datum
A2 = Zeit
A3 = Terminname
A4 = Termininfo
Jetzt möchte ich gerne auf einen Butoon drück und ein Termin soll im Outlook eingetragen werden.
25.08.2011 22:47:40
Thread-ID: 1227606
2 Beiträge
Anzeige
Attachmentname in E-Mail Nachicht einfügen
Seppel

Hallo VBA Gemeinde,
Über ein Exeldatei lasse ich eine E-Mail generieren, das funktioniert so weit auch alles mit dem hier unten angegbenen Code. Ich möchte aber gern noch in den Mail Body (Nachichtentext) den Namen der angefügten Datei mit einbinden.
Im Nachichtentext wäre das z.B. nach...
24.09.2011 07:05:04
Thread-ID: 1231295
5 Beiträge
mit VBA (aus Excel) eine Outlook-2010-Mail erstell
Mischa

Hallo,
wie ist der VB6- Code, um aus einer Anwendung wie zB Excel heraus eine Outlook 2010 - Email zu erstellen?
Will nach KLick auf Button bestimmte Zellinhalte per Mail versenden,
mit bisherigen Outlook-Versionen wars kein Problem - bin aber jetzt umgestiegen ...
Danke für je...
22.02.2012 22:51:53
Thread-ID: 1252010
2 Beiträge
HTML Tabelle als Grafik in E-Mail einfügen
steffen

Hallo!
ich habe folgendes Problem und hoffe ich finde hier helle Köpfe die mit weiterhelfen :-)
Ich erstelle autom. eine E-Mail: Dim objOutlook As New Outlook.Application Dim ObjMessage As MailItem Set ObjMessage = objOutlook.CreateItem(olMailItem) With ObjMessage .BodyFormat = 1 .HTML...
05.09.2012 13:22:36
Thread-ID: 1277492
3 Beiträge
Email-Infos aus Outlook ins Excel einlesen
Pascal

Guten Tag zusammen
Mal wieder stehe ich vor einer für mich unmöglich erscheinenden Aufgabe:
Aus Excel raus soll ein Makro gestartet werden, welches mir aus meinem Outlook 2010 alle Emails aus einem bestimmten Ordner ausliest.
Und zwar brauch ich dann in Excel nicht den Inhalt der Em...
23.11.2012 11:28:38
Thread-ID: 1287796
3 Beiträge
Text in Mail einfügen
Dani

Hallo zusammen
Unter folgendem Link ist mein Problem in erster Linie gelöst
https://www.herber.de/forum/archiv/1336to1340/t1336741.htm#1337037
Nun möchte ich jedoch den Body Text noch ausbauen. Es kommen noch Einträge aus einzelnen Zellen dazu. Wie muss ich den Code anpassen, damit...
21.12.2013 16:20:22
Thread-ID: 1343289
2 Beiträge
Anzeige
Tabellenbereich in Email einfügen
Ralf

Hallo Forum,
ich habe das Archiv durchsucht und nicht das richtige gefunden. Ich bin aber überzeugt, dass das Thema schon mal behandelt wurde.
Ich möchte den Tabellenbereich D12:G22 der Tabelle 1 mitsamt der Rahmen und Farben in eine Email einfügen, Betreff und Empfänger mit entsprechen...
05.03.2014 21:13:46
Thread-ID: 1352318
4 Beiträge
Excel Daten in Email mit Makro einfügen
lau

Hallo zusammen,
versuche mit unterem Makro die Range(d1:g11) in die Email einzufügen.
Der Abschnitt wird kopiert, aber nicht in die Email eingefügt. Sub test() Worksheets(1).Range("d1:g11").Select Selection.Copy Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outloo...
21.09.2015 16:49:41
Thread-ID: 1448500
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige