May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Private Sub SendEmail(pRecipient) Dim myserver As clsAESeMailServer Dim mymsg As clsAESeMailMsg Set myserver = New clsAESeMailServer Set mymsg = New clsAESeMailMsg myserver.ServerAddress = Me!From.Column(0) myserver.AccountName = Me!From.Column(1) myserver.Password = Me!From.Column(2) Set mymsg.MailServer = myserver mymsg.From = Me!From.Column(1) mymsg.Recipient = pRecipient mymsg.Subject = CStr(Me!Subject) mymsg.BCC = CreateBCCList mymsg.Send End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.