Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Dim objMessage As CDO.Message
Sub Main()
Dim ff As Integer
Dim strTextLine As String
Dim strDomain As String
Dim strSendTo As String
ff = FreeFile
strDomain = [blue]"@some.domain.abc"[/blue]
Open App.Path & "\people.txt" For Input As #ff
Do While Not EOF(ff)
Line Input #ff, strTextLine
If Len(strSendTo) = 0 Then
strSendTo = strTextLine & strDomain
Else
strSendTo = strSendTo & ";" & strTextLine & strDomain
End If
Loop
Close #ff
[green]'Debug.Print strSendTo[/green]
Set objMessage = New CDO.Message
With objMessage
.From = [blue]"You.Name@domain.net"[/blue]
.BCC = strSendTo
.Subject = [blue]"This is my Sybject Line."[/blue]
.TextBody = vbNewLine[blue] & "Just a reminder..." & vbNewLine _
& "Change your password."[/blue]
With .Configuration.Fields
.Item(CDO.cdoSMTPServer) = [blue]"VBNM.ABC.XYZ.JKL"[/blue]
.Item(CDO.cdoSMTPServerPort) = 25
.Item(CDO.cdoSendUsingMethod) = CDO.cdoSendUsingPort
.Item(cdoSMTPConnectionTimeout) = 10
.Update
End With
.Send
End With
Set objMessage = Nothing
End Sub