ich bin jetzt fast fertig mit meinem Makro, muss aber jetzt mein SaveAs umschreiben so das am besten die Pfad abfrage garnicht mehr auftaucht oder sofort nach dem auftauchen automatisch abspeichert und schließt so das man im Fenster nix verändern kann (Namen und Pfad).
Ich weiß jetzt leider nicht wie ich das SaveAs so verändere das auch der Rest des Makros so funktioniert wie jetzt. Also mit Outlook öffnen und Pfad als Hyperlink versenden.
Bitte um Hilfe.
Private Sub Email_verschicken_Click()
On Error GoTo Errorhandler
Dim a
a = MsgBox("Wollen Sie Speichern und verschicken?", vbYesNo + vbQuestion, "Auswahl")
If a = vbYes Then
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ol As Object, Ml As Object
Dim FileSave$
Dim bin As Boolean
Dim name As String
ChDrive "O:" 'stellt Laufwerk ein !!!
ChDir "Pfad" ' _
stellt Pfad ein !!!
FileSave = Application.GetSaveAsFilename(Range("A1") & "_Prüfung_" & _
Format(Date, "yyyymm") & ".xls", "Excel-Dateien (*.xls), *.xls")
If Filename Like "*.xls" Then
Wb.SaveAs FileSave
Set Ol = CreateObject("Outlook.Application")
Set Ml = Ol.createitem(0)
With Ml
.To = "@mail"
.Subject = " Prüfung " & Date & Time
.htmlbody = "Pfad\"
.Display
End With
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
Else
'do nothing
End If
Else
'do nothing
End If
Errorhandler:
End Sub
Mit freundlichen GrüßenAlex