Create msmtps.f

Mock SMTP server.