VBScript - outlook does not recognize one or more recipients

johnc83 · #2 07-16-2015, 06:42 AM

I've given up and written an alternative. Its Excel 2003 VBA that is creating the VBS file ready to send the email.

My sub receives a single string (Called 'Recipients') containing multiple email addresses and splits them out into individual ones..

Code:

'GET EMAIL ADDRESSES
EmailList = Recipients
For x = 0 To 10000
If InStr(EmailList, ";") = 0 Then 'if 0 then no more semi-colons meaning you are at last email address in list
x = 10000
Print #fnum, "objMailItem.Recipients.Add (""" & EmailList & """)"
Else
'Get position of semi-colin
SemiColPos = InStr(EmailList, ";")
'Get email address
EmailAddress = Mid(EmailList, 1, SemiColPos - 1)
Print #fnum, "objMailItem.Recipients.Add (""" & EmailAddress & """)"
'remove previous email address from list (by starting new string after first semiCol
EmailList = Mid(EmailList, SemiColPos + 1, 100)
End If
Next

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Outlook invitation shows my entire calendar to recipients	deltaskye	Outlook	0	04-05-2014 08:24 AM
VBScript.RegExp: exclude a particular word	tinfanide	Excel Programming	2	06-07-2012 06:52 AM
Changed data base name. Outlook doesn't recognize.	Skip	Outlook	1	10-20-2011 10:55 AM
Outlook 2010 send emails to unintended recipients.	enviroko	Outlook	7	06-20-2011 06:21 PM
VbScript to Print a .pdf	DaveB	Excel	2	03-07-2009 12:36 PM