Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenbereich als email verschicken

Tabellenbereich als email verschicken
18.03.2020 11:51:26
Alex
Hallo,
evtl. kann mir hier ein VBA Experte weiterhelfen und zwar möchte ich einen Bereich einer Tabelle per Button als email verschicken. Lässt sich sowas bewerkstelligen ?
Der Bereich befindet sich im Tabellenblatt 2 von A3:H95
Danke im voruas für die Hilfe

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenbereich als email verschicken
18.03.2020 12:10:04
volti
Hallo Alex,
mit diesem zunächst einfachen Ansatz kannst Du einen Bereich verschicken.
Natürlich können die Parameter wie z.B. Adressat, Betreff usw. auch aus Zellenbereichen übernommen werden. Ordne die Sub einfach einem Button zu....

Option Explicit
Private Sub Mail_Senden_Formatierung_Bereich()
'Sendet eine formatierte Mail mit Signatur
 Dim sMailText As String
 
 With CreateObject("Outlook.Application").CreateItem(0)
  .BodyFormat = 3          'HTML-Format, Angabe optional
  .To = "AnMich@web.de"
'  .CC = ""
'  .Bcc = ""
  .Subject = "Mein Betreff"
  sMailText = "Hallo, hier ein Tabellenausschnitt"
  .GetInspector
  .htmlbody = Replace(sMailText, vbLf, "<br>") _
   & Range2Html(ThisWorkbook.Sheets("Tabelle2").Range("A3:H95")) & .htmlbody
  .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, "<link rel=File-List href=") + 26
  If P > 26 Then
    sTmp = Mid$(Range2Html, P, InStr(P, Range2Html, "/filelist.xml") - P)
    Range2Html = Replace(Range2Html, sTmp, sTmpVz & sTmp)
  End If
 End With
 On Error Resume Next
 Kill sTmpDatei
 Kill sTmpVz & sTmp
End Function

viele Grüße
Karl-Heinz

Anzeige
AW: Tabellenbereich als email verschicken
18.03.2020 12:59:58
Alex
Hallo Danke, werde ich gleich einmal ausprobieren.
AW: Tabellenbereich als email verschicken
19.03.2020 09:36:36
Alex
Hallo, kann ich dazu auch noch im Betreff das aktuelle Datum generieren lassen ?
sMailText = "Hallo, hier ein Tabellenausschnitt"
AW: Tabellenbereich als email verschicken
19.03.2020 10:21:02
peterk
Hallo 

.Subject = "Mein Betreff " &  format(date,"dd.mmmm.yyyy") ' Mein Betreff 19.März.2020
oder
.Subject = "Mein Betreff " &  format(date,"dd.mm.yyyy") ' Mein Betreff 19.03.2020

AW: Tabellenbereich als email verschicken
19.03.2020 13:49:00
Alex
Hat super geklappt Danke,
ein Problem habe ich noch ich bekomme es nicht in das ich mehrere email Adressen anlegen kann bei
.to = "test.mail@test.com"
Anzeige
AW: Tabellenbereich als email verschicken
19.03.2020 14:21:08
volti
Hallo Alex,
einfach Semikolon-Getrennt beliebig viele eMail-Adressen eingeben...
.to = "test.mail@test.com;Er@web.de;Du@gmx.de"
viele Grüße
Karl-Heinz
AW: Tabellenbereich als email verschicken
19.03.2020 16:17:05
Alex
Danke Karl Heinz
AW: Tabellenbereich als email verschicken
19.03.2020 11:07:01
volti
Hi ALex,
hat peterK ja schon treffend beantwortet.
Gruß KH

305 Forumthreads zu ähnlichen Themen

Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
Anzeige
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Benutzten Bereich kopieren und einfügen
Babs

Hallo zusammen,
ich bin noch neu hier und konnte leider auf das thema von Dieter
"Benutzten Bereich kopieren von Dieter vom 19.10.2009 17:43:03 " keinen Beitrag schreiben, geht irgendwie nicht !
wenn es doch möglich ist da was reinzuschreiben dann würd ich gerne wissen wie ?
M...
07.12.2009 09:42:46
Thread-ID: 1122130
15 Beiträge
Anzeige
Tabelle in Intervallen per Mail verschicken
Universal

N`Abend zusammen! :-)
Ich würde gern meine Arbeit etwas erleichtern ... meine Kollegen und ich haben eine Excel-Tabelle, die jede Stunde mit Daten gefüllt wird. Wie ich Mails per VBA verschicken kann weiss ich. Leider fehlt mir aber das Wissen um die Tabelle in einem stündlichen Intervall a...
21.12.2009 23:03:13
Thread-ID: 1125480
7 Beiträge
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
kopieren und einfügen per makro
rolf

hallo
ich möchte in tabelle 1 - zeile a3 bis a79 kopieren und dann
in tabelle 2 per makro in die erste freie zeile einfügen.
spalte b wird immer ausgefüllt.
wäre dankbar für eure hilfe.
mfg rolf
10.01.2010 22:49:24
Thread-ID: 1128765
11 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
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
8
2
14
4
6
11
10
4
6
1
8
9
11
12
2
5
2
4
2
3
4
3
2
1