Hallo alle, ich habe schon einen fertigen Script aber ich mochte den gerne ausbreiten mochte gerne das er hier: .Body = "Hierbij de Brokerage update van de holdcage" & " " & Format(Now, "dd-mm-yy") nach holdcage noch den Zellen Inhalt z.b. von scheibt das ist ein teil von den script: 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = Sourcewb.Name & " " Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, _ FileFormat:=FileFormatNum On Error Resume Next With ... 0 Kommentare, 67 mal gelesen.
↧