Tabellenblatt per Mail versenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Erik,
falls Du die Seite als PDF versenden möchtest, hier ein Beispiel als Anregung mit variabler Signatur.
Natürlich kann man das auch als Excel-Datei exportieren oder den gesamten Inhalt in die Mail einbetten...

Code:


[Cc][+][-]

Sub MailMitPDFundSignatur()
  Dim sDateiname As String, WSh As Worksheet
 
  Set WSh = ThisWorkbook.Sheets("Protokoll")

' PDF erzeugen
  sDateiname = Environ$("TEMP") & "&bsol;" & "Protokoll_" _
             & Format(Date, "YYYYMMDD") & ".pdf"
  WSh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sDateiname, _
      Quality:=xlQualityStandard, OpenAfterPublish:=False
  
' Mail kreieren
  With CreateObject("Outlook.Application").CreateItem(0)
      .GetInspector                         ' sorgt für die Signatur
      .To = "anIhn@web.de"                  ' Empfänger
      .Subject = "Ich bin ein Betreff"      ' Betreff
      .Body = "Hallo," & vbCr & vbCr _
            & "anbei das Protokoll als PDF Datei : " _
            & vbCr & vbCr & .Body           ' Mailtext mit Signatur
       If Dir$(sDateiname) <> "" Then
          .Attachments.Add sDateiname
          Kill sDateiname
       End If
       .Display
  End With


End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Code: [Cc][+][-] Sub MailMitDateiundSignatur() Dim sDateiname As String, WSh As Worksheet Set WSh = ThisWorkbook.Sheets("Protokoll") ' XLS erzeugen sDateiname = Environ$("TEMP") & "\" & "Protokoll_" _ & Format(Date, "YYYYMMDD") & ".xlsx" WSh.Copy ActiveWorkbook.SaveAs sDateiname ActiveWorkbook.Close ' Mail kreieren With CreateObject("Outlook.Application").CreateItem(0) .GetInspector ' sorgt für die Signatur .To = "anIhn@web.de" ' Empfänger .Subject = "Ich bin ein Betreff" ' Betreff .Body = "Hallo," & vbCr & vbCr _ & "anbei das Protokoll als Datei : " _ & vbCr & vbCr & .Body ' Mailtext mit Signatur If Dir$(sDateiname) <> "" Then .Attachments.Add sDateiname Kill sDateiname End If .Display End With End Sub

Code: [Cc][+][-] Sub MailMitBereichsEinbettung() Dim sDateiname As String, WSh As Worksheet Dim sMailtext As String, oShp As Object Set WSh = ThisWorkbook.Sheets("Protokoll") ' Bereich kopieren WSh.Range("A1:O40").CopyPicture _ Appearance:=xlScreen, Format:=xlBitmap ' Bereich kopieren, ggf. xlPicture sMailtext = "Hallo," & vbCr & vbCr _ & "hier das Protokoll: " & vbCr & vbCr ' Mail kreieren With CreateObject("Outlook.Application").CreateItem(0) .GetInspector ' sorgt für die Signatur .To = "anIhn@web.de" ' Empfänger .Subject = "Ich bin ein Betreff" ' Betreff .Body = sMailtext & .Body ' Mailtext mit Signatur .Display ' Bereich in die Mail einfügen With .GetInspector.WordEditor.Application.Selection .Start = Len(sMailtext) ' Grafik Einfügestelle, ggf. justieren .Paste ' Grafik in Mail einfügen End With For Each oShp In .GetInspector.WordEditor.InlineShapes oShp.Width = 500 ' Grafik skalieren Next oShp End With

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt per Mail versenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

324 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread