Email to text

[MarkWF]

Hi everyone.
I am trying to send email to text via outlook. I have a list of numbers which need a suffix as in the code below. The problem is that the suffix is only added to the last number instead of all numbers.
PLEASE HELP

Dim OObj As Outlook.Application


Dim OMsg As Outlook.MailItem
Dim db As Database
Dim rs As Recordset
Dim PersonalContactNumber As String
Set OObj = CreateObject("Outlook.Application")
Set OMsg = OObj.CreateItem(olMailItem)
Set db = CurrentDb
Set rs = db.OpenRecordset("studentlistq")

With rs

If .EOF And .BOF Then
MsgBox "No emails will be sent because there are no records assigned from the list", vbInformation
Else
PersonalContactNumber = ""
Do Until .EOF
PersonalContactNumber = PersonalContactNumber & ";" & ![PersonalContactNumber]
.MoveNext
Loop

OMsg.To = PersonalContactNumber & "@voda.co.za"

OMsg.Display

End If

End With
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Set OMsg = Nothing
Set OObj = Nothing

End Sub

[ranman256]

It looks correct, what result are you getting?

I would think you need the '@voda.co.za' on EVERY email name.

[Welshgasman]

Put your code within code tags (see my sig), that preseves indentation and makes code easier to read.
I would put the ; at the end, Outlook does not complain if an email address does not follow that character.
I would also change the names so as not to get confused. strEmailTo = strEmailTo & ![PersonalContactNumber] & ";"

As mentioned you need the domain added on each email address if that is the correct domain.?

Walking through your code with F8 would show that immediately?

[Welshgasman]

Now crossposted at https://www.access-programmers.co.uk...o-text.324270/