Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Email Ansicht auf automaticgröße einstellen

Email Ansicht auf automaticgröße einstellen
18.01.2008 13:08:14
Fred
Hallo zusammen
Ich benutze einen Code von Hier um eine Tabelle zu versenden. Das funktioniert auch alles prima. Kann mir jemans helfen , das die E-Mail sich automatisch auf Größe der Tabelle einstellt. Ich meine natürlich nicht die E-Mail als solches sondern das was von der Tabelle angezeigt wird.
Hier mal der Code den ich benutze

Sub MailSenden()
Sheets("Störbericht").Select
Range("A1:O100").Select
Dim olapp As Object
Dim rng As Range
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
Set rng = Selection
.To = " "
' .CC = "Kopie@mail.de 'Optional kopie
' .BCC = "Blindkopie@mail.de 'Optional Bliendkopie
.Subject = "Störbericht"
.HtmlBody = "Hallo!
Anbei gewünschte Unterlagen.
Mit freundlichen Grüßen,
_ Unterschrift
" & RangetoHTML(rng) .Display ' SendKeys "%s", True 'Optional Mail sofort senden Set rng = Nothing Set olapp = Nothing End With Sheets("Störbericht").Select Range("C1").Select End Sub



Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook
TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
' .DrawingObjects.Visible = True
'.DrawingObjects.Delete
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.readall
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
"align=left x:publishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Email automatisch versenden
18.01.2008 14:15:00
Fred
Hat sich erledigt War ein Denkfehler von mir.
Funzt alles.
Kann mir jemand sagen wie ich es anstellen kann, das die E-Mail automatisch versendet wird? Die Email wird bei mir nur in den Ausgang gelegt, obwohl ich online bin

AW: Email automatisch versenden
19.01.2008 10:03:00
Fred
erledigt funzt alles
Anzeige

297 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige