Ich ärgere mich gerade ein wenig über meinen treuen Freund Laptop!
Er macht partout nich was ich gerne hätte!
Nun zum meinem Problem:
In der ersten Prozedur wird eine Tabelle( Tabelle12) seperat abgespeichert.
Sub VorbereitenEMailTabelle12()
Dim DName As String
Dim dateiname As String
Dim Pfad As String
Dim Tag As String
Dim Var1 As String
Dim Var2 As String
Var1 = Year(Now)
Var2 = Month(Now)
Tag = Tabelle2.Range("L1")
Pfad = ThisWorkbook.Path & "\Tagesrapporte\" & Var1 & "\" & Var2 & "\Ladungslisten"
DName = ("Ladungsliste " & Tag)
dateiname = Pfad & "\" & DName & Format(Now, "YYYY.MM.DD") & ".xlsm"
Tabelle12.Select
Tabelle12.Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
_
False
ActiveSheet.Select
ActiveWorkbook.SaveAs Filename:=dateiname, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
CreateBackup:=False
ActiveWindow.Close SaveChanges:=0
LadungslisteVersendenTabelle12 (dateiname)
End Sub
Danach fühge ich diese Tabelle in Outlook ein und möchte es senden.
Es funktioniert alles wunderbar auser der Befehl
.Mail.Send
Prozedur 2:
Sub LadungslisteVersendenTabelle12(ByVal dateiname As String)
Dim Datum As String
Dim Tag As String
Dim Var1 As String
Dim Var2 As String
Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")
Dim Anhang As String
Var1 = Year(Now)
Var2 = Month(Now)
Anhang = dateiname
Set Nachricht = OutlookApplication.CreateItem(0)
Datum = Format(Now, "dd,mm,yyyy")
Tag = Tabelle2.Cells(1, 12).Value
Tabelle12.Range("G2:G2").Value = Tag
Tabelle12.Range("H2:H2").Value = Datum
With Nachricht
.To = "AaronWildhaber@hispeed.ch"
.Subject = ("Zielort/ Ladung schiffe ") & (Datum)
.Attachments.Add Anhang
.Body = "Liebe Kollegen" & vbNewLine & vbNewLine & ("Im Anhang ist die Tabelle der Güterschiffe vom ") & (Tag) & (Datum) & (" angefügt.") & vbNewLine & (" Schönes Wochenende")
.Display
'Bis hier hin funktioniert es wunderbar!
'.Mail.Send 'Funktioniert nicht! Office2016 / Professional
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
End Sub
Ist dies unter Outlook2016 nicht mehr möglich oder kann mich jemand auf ein anderen Fehler hinweisen oder sonst wie helfen?
Danke für euren Raht
E liebs Griessli
Chatzebuseli