Code:
Private Sub CommandButton3_Click()
With ActiveWorkbook
.SaveAs Environ("userprofile") & "\Containers " & Format(Date, "ddmmyy") & " " & Format(Time, "hhmmss") & ".xlsm", 52
ActiveWorkbook.SendMail Array("test@hotmail.com", "test@gmail.com")
'ActiveWorkbook.SendMail Recipients:="test@gmail.com"
MsgBox ("Uw mail is verzonden")
End With
End Sub
Maar op sommige pc's staat geen emailprogramma, kan er dan online naar een provider gegaan worden en daar vandaan de email worden verzonden?
Verder komt de tekst üw mail is verzonden) ook naar voren als 'het' niet is verstuurd, is dat ook te aan te passen?
Bedankt vast
groet rop