mehrere sheet als pdf per mail versenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub yyy() Dim strFile As String, objActive As Object Set objActive = ActiveSheet Sheets("Aussenlager").Select False objActive.Activate strFile = ThisWorkbook.Path & "\Prowa " & ActiveSheet.Name & " " & CStr(Year(Date)) & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFile, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Call SendMail_OL(strTO:="meinemail@mail.ch", strSUBJECT:="Hallo im Anhang....", strTEXT:="Aktueller Monat Prowa", _ strATT:=strFile) objActive.Select True End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo MaBlu,
das geht so.

Sub SendMail_OL(strTO As String, strSUBJECT As String, Optional strTEXT As String, Optional strCC As String, Optional _
  strBCC As String, Optional strATT As String)
  'strTo, strCC, strBCC, strATT mit ; getrennt 
  Dim objMessage As Object, objOutApp As Object, i As Integer, arrAtt
  
  'Outlook Object erstellen 
  Set objOutApp = CreateObject("Outlook.Application")
  'Outlook Nachricht erstellen 
  Set objMessage = objOutApp.CreateItem(0)
  
  With objMessage
    .GetInspector
    strTEXT = strTEXT & "<br>" & .HTMLbody
    
    'Empfänger 
    .To = strTO
    
    'Kopie 
    If Len(strCC) Then
      .CC = strCC
    End If
    
    'Blindkopie 
    If Len(strCC) Then
      .BCC = strBCC
    End If
    
    'Betreff 
    .Subject = strSUBJECT
    
    If Len(strATT) Then
      arrAtt = Split(strATT, ";")
      For i = Lbound(arrAtt) To Ubound(arrAtt)
        .Attachments.Add Trim(arrAtt(i))
      Next
    End If
    
    If Len(strTEXT) Then
      'Hier wird ein normaler Text erstellt 
      .HTMLbody = strTEXT
    End If
    
    If Len(strTEXT) Then
      'Hier wird eine HTML Mail erstellt 
      'Dies kann zu Problemen führen, wenn der Empfänger nur TEXT Dateien empfangen darf. 
      '.htmlbody = strTEXT 
    End If
    
    'Hier wird die Mail nochmals angezeigt 
    .Display
    
    'Hier wird die Mail gleich in den Postausgang gelegt und gesendet 
    '.Send 
    
  End With
  'Outlook schliessen 
  'MyOutApp.Quit 
  'Variablen leeren 
  Set objOutApp = Nothing
  Set objMessage = Nothing
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

mehrere sheet als pdf per mail versenden

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrere sheet als pdf per mail versenden

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

328 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread