Ich benutze dieses Marko, um ein Tabellenblatt per Outlook zu versenden.
In dem bereich von: Empfänger, CC, BCC, Subject und weitere möchte ich
die Daten aus einem anderen Tabellenblatt, das sich in der selber Arbeitsmappe
befindet, auslesen und einfügen lassen. bei der Suche in vielen Foren bekomme
ich darauf keine Antwort, sondern nur Fehlermeldungen.
Ich benutze ein ähnliches Makro, dass aus Excel E-Mail verschickt, jedoch ohne
Tabellenanhang. Dort funktioniert das alles.
Ich weiß nicht mehr, wo ich suchen soll und ob meine Vorstellung überhaupt umsetzbar ist.
Deshalb bitte ich euch um Hilfe.
Sub Liste_per_Email_versenden()
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = "Tabellenname" & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
' Email-Daten hier eintragen:
With OutlookMail 'ab hier sollen die Daten aus einer anderen Tabelle/Zelle eingetragen werden.
'Absender eintragen
.SentOnBehalfOfName = "abc@mail.de" '