wer kann mir bei einem kleinen Problem helfen?
Ich möchte eine Datei test.xls als test zelleA1.xls speichern.
dann soll diese datei als anhang mit dem betreff test an mich@test.de gesendet werden.
für mich als VBA anfänger nicht lösbar
Danke miked
Sub BestellungSpeichern(Dateiname As String)
Dim ZOrdner As String
Application.ScreenUpdating = False
ZOrdner = Application.ActiveWorkbook.Path
ZOrdner = ZOrdner & "\Speicherort"
Dim WB As Workbook
Worksheets(2).Copy
Set WB = ActiveWorkbook
ActiveSheet.OLEObjects.Delete
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Dateiname = ZOrdner & "\" & Dateiname
ActiveWorkbook.SaveAs Dateiname
ActiveWorkbook.Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub
Sub BestellungMailen(Dateiname As String)
Dim OutObj As Object
Dim Mail As Object
Dim Name As String
Dim EMailName As String
Set OutObj = CreateObject("Outlook.Application")
Set Mail = OutObj.CreateItem(0)
Name = "mich"
EMailName = "mich@test.de"
Mail.To = EMailName
Mail.Subject = "xxx"
Mail.Body = "Hallo " & Name & "," & Chr(13) & Chr(13) & _
"xxx" & _
Chr(13) & _
Chr(13) & _
"M.f.G."
Mail.Attachments.Add Dateiname
Mail.display
Set OutObj = Nothing
Set Mail = Nothing
End Sub