Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.