[RESOLVED] Sending email to mutiple addresses

[Mustaphi]

Hello vbforums
I searched the site and I found this code for sending email from outlook.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

'the sub:
Sub My_Mailto(pr_Recipients_s As String, _
              Optional pr_Subject_s As String = "", _
              Optional pr_Body_s As String = "", _
              Optional pr_CC_s As String = "", _
              Optional pr_BCC_s As String = "")
'---------------------------------------------------------------------------------------
' Purpose   :  Create an email (not sent automatically)
' Returns   :  (none)
' Parameters:  (various email fields)
' Author    :  Si_the_geek (vbForums.com)
' Date      :  Fri 14 Jan 2005
'---------------------------------------------------------------------------------------
 
Dim vl_Execute_s As String      'Format the parameters
  vl_Execute_s = "mailto:" & pr_Recipients_s
 
  If (pr_Subject_s <> "") Then
    vl_Execute_s = vl_Execute_s & "&subject=" & pr_Subject_s
  End If
  If (pr_CC_s <> "") Then
    vl_Execute_s = vl_Execute_s & "&cc=" & pr_CC_s
  End If
  If (pr_BCC_s <> "") Then
    vl_Execute_s = vl_Execute_s & "&bcc=" & pr_BCC_s
  End If
  If (pr_Body_s <> "") Then
    vl_Execute_s = vl_Execute_s & "&body=" & pr_Body_s
  End If
 
                                'Convert CR's to HTML CR's
    '(note - this works well for Outlook, not tested on other clients)
  vl_Execute_s = Replace(vl_Execute_s, vbCr, "%0A")
 
                                'Create the mail
  ShellExecute 0, vbNullString, vl_Execute_s, vbNullString, "C:\", SW_SHOWNORMAL
 
End Sub

Private Sub Command1_Click()
Dim sBodyText As String
sBodyText = "body text here" & vbCr & "testing {#1#} testing {#2#}*"
sBodyText = Replace(sBodyText, "*#1#*", txtFirstName.Text)
sBodyText = Replace(sBodyText, "*#1#*", txtSurname.Text)
Call My_Mailto("si_the_geek@example.com", "subject here", sBodyText)
End Sub

I was able to sznd emails to single address. And even to multiples address by seperating the recipients' addresses with a semi-colon.
However in my case the addresses are stored in access database under email field.
Can anyone help to send emails to multiple addresses stored in database.
Thank you in advance.

[westconn1]

loop through the recordset and add the email addresses to a string of ; separated addresses, then pass that to your my_mailto

like

do until rs.eof
  strmails = strmails & rs("email") & ";"
  rs.movenext
loop
my_mailto strmails, "subject here", sbodytext

where rs is a recordset from your database table
i did not test this code

for sending email from outlook

that code is not specific for outlook and should send using whatever is the default email client

[Mustaphi]

thanks a lot sir
that's solved my issue