Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Word Dokument als Email Body möglich?
#1
Guten Tag Leute,

ich verschicke derzeit über ein Makro Emails aus Excel raus.
Besteht die Möglichkeit das sich Excel den Email Body immer aus einer Word Datei zieht? Also so das ich eine Word-Datei ablege und wenn ich die Emails verschicke sich der Body immer der Word-Datei entsprechend anpasst. 

Code für die Mail
Code:
Private Sub CommandButton2_Click()

  Dim FileExtStr As String
  Dim FileFormatNum As Long
  Dim Sourcewb As Workbook
  Dim Destwb As Workbook
  Dim TempFilePath As String
  Dim TempFileName As String
  Dim OutApp As Object
  Dim OutMail As Object
  Dim lngSheet As Long
  Dim lngTMP As Long
  Dim varArrSheets() As Variant
  On Error GoTo Fin
  If ListBox1.ListCount = 0 Then
      MsgBox "Es wurden keine Tabellenblätter gewählt.", vbOKOnly + vbExclamation, "Warnung"
      Exit Sub
  Else
      For lngTMP = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(lngTMP) Then
              ReDim Preserve varArrSheets(lngSheet)
              varArrSheets(lngSheet) = ListBox1.List(lngTMP)
              lngSheet = lngSheet + 1
          End If
      Next lngTMP
  End If
 
  With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .DisplayAlerts = False
  End With

  Set Sourcewb = ActiveWorkbook

  'Copy the ActiveSheet to a new workbook
 
  'ActiveSheet.Copy
 
  ThisWorkbook.Worksheets(varArrSheets).Copy
 
  Set Destwb = ActiveWorkbook
               
   

  'Determine the Excel version and file extension/format
  With Destwb
 
         If Val(Application.Version) < 12 Then
          'You use Excel 97-2003
          FileExtStr = ".xls": FileFormatNum = -4143
      Else
          'You use Excel 2007-2016
          Select Case Sourcewb.FileFormat
          Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
          Case 52:
              If .HasVBProject Then
                  FileExtStr = ".xlsm": FileFormatNum = 52
              Else
                  FileExtStr = ".xlsx": FileFormatNum = 51
              End If
          Case 56: FileExtStr = ".xls": FileFormatNum = 56
          Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
          End Select
      End If
  End With



  'Save the new workbook/Mail it/Delete it
  ' Pfad anpassen - abschliessenden Backslash nicht vergessen!!!
 
 
  TempFilePath = Environ$("temp") & "\"
  TempFileName = TextBoxDatei.Text
 
 
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
 

 
  With Destwb
      .SaveAs "S:\" & TempFileName & FileExtStr, FileFormat:=FileFormatNum
      On Error Resume Next
      With OutMail
          .To = ""
          .CC = ""
          .BCC = ""
          .Subject = ""
          .Body = ""
          .Attachments.Add Destwb.FullName
         
          'Anhang hinzufügen
          '.Attachments.Add ("U:\Test für Senden.xlsx")
          '.Send or use
          .Display
      End With
      On Error GoTo 0
      .Close savechanges:=False
  End With

 
  'Delete the file you have send
 
  'Kill TempFilePath & TempFileName & FileExtStr
Fin:
  Set OutMail = Nothing
  Set OutApp = Nothing

  With Application
      .ScreenUpdating = True
      .EnableEvents = True
      .DisplayAlerts = True
  End With

 
 
  Unload UserForm1
 
End Sub
Antworten Top
#2
Hallöchen,

mal ein Ansatz:

https://stackoverflow.com/questions/3560...l-with-vba
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Wieso erstellst du nicht einfach eine Outlookvorlage?
Schöne Grüße
Berni
Antworten Top
#4
Hi Bernie,

Das ist eine. Gibt im Prinzip verschiedene Methoden, z. B. als Item im Postfach oder auch gespeichert...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • elamigo
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste