Microsoft Excel

Herbers Excel/VBA-Archiv

Email Ansicht auf automaticgröße einstellen

Betrifft: Email Ansicht auf automaticgröße einstellen von: Fred
Geschrieben am: 18.01.2008 13:08:14

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


  

Betrifft: AW: Email automatisch versenden von: Fred
Geschrieben am: 18.01.2008 14:15:27

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


  

Betrifft: AW: Email automatisch versenden von: Fred
Geschrieben am: 19.01.2008 10:03:26

erledigt funzt alles


 

Beiträge aus den Excel-Beispielen zum Thema "Email Ansicht auf automaticgröße einstellen"