So, jetzt bin ich schon ein ganzes Stück weiter und bis hierher funktioniert auch alles aber vielleicht habt ihr ja den Rest der Lösung für mich.
Folgenden Befehl habe ich jetzt:
Sub SaveandSend()
'
' SaveandSend Makro
'
'
Sub speichern_unter()
ActiveWorkbook.SaveAs "O:\Orderconf USA\" & ActiveSheet.Range("M3").Value & ActiveSheet.Range("N3").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("M3").Value & ActiveSheet.Range("N3").Value & ".xls gespeichert.", , "OK"
Dim objOL As Object
Dim objMail As Object
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Application.ScreenUpdating = False
With objMail
.To = "Test@Test.com"
.Subject = "Orderconfirmation"
.Body = "Please find attached the order confirmation for above mentioned PO"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
Application.ScreenUpdating = True
End Sub
Wer kann mir dies jetzt so umbauen dass als erstes eine Prüfung abläuft ob Zelle N3 belegt ist ansonsten Fehlermeldung und keine weiteren Aktionen.
Zweitens möchte ich dass die Mal nicht automatisch abgesendet wird sondern als Entwurf offen auf dem Screen erscheint...