Member Avatar for SaRa Ahmad

i used this code to send email from vb6 form that connect with out look email account

'Dim olapp As New Outlook.Application 
'Dim olMail As Outlook.MailItem 

'Create a new mail object form the 
'Outlook98 Application object 
'Set olMail = olapp.CreateItem(olMailItem) 

'Set the mail fields of the olMail object 
'olMail.Subject = <subject goes in here> 
'olMail.To = <the email address goes in here> 
'olMail.Body = <the mail body does in here> 

'Tell Outlook to send this message 
'olMail.Send 

'Be kind to your environment and clean 
'up your unused objects 
'Set olMail = Nothing 
'Set olapp = Nothing 
'--end code block

my Question is how i can set more email reciver

' olMail.To = <the email address goes in here>  ??

and how i can retrive picture from my data base and attachemnt to email ??

olMail.attatchemnt = <what i should write here>
Edited by pritaeas because: Added markdown.
  • 2 Contributors
  • 4 Replies
  • 2K Views
  • 2 Days Discussion Span
  • Latest Post Latest Post by SaRa Ahmad
Member Avatar for SaRa Ahmad

anyone could be help please ??

Member Avatar for Klahr_R

I found a how to send with out Outlook that covers both Outlook and sending with out outlook. here.

The Not With Outlook appears to have a way to use attachments. However it requires a Reference to CDO 1.2.1 which can be downloaded here
And it requires Outlook 2007 to be installed before the CDO will install

No promises. I haven't tried any of this, but maybe it will get you started.

Member Avatar for Klahr_R

Or you might try, on about line 11,

.attachment.add ("C:\MyPath\MyPic.Jpg")

This link gives a method to embed the image in the body.

My outlook reference isn't working so I have no way to check this code.

Member Avatar for SaRa Ahmad 
Dim olapp As New Outlook.Application 
'Dim olMail As Outlook.MailItem 
'Create a new mail object form the 
'Outlook98 Application object 
'Set olMail = olapp.CreateItem(olMailItem) 
'Set the mail fields of the olMail object 
'olMail.Subject = <subject goes in here> 
'olMail.To = <the email address goes in here> 
'olMail.Body = <the mail body does in here> 
olMail.attachment.add("Your path")
'Tell Outlook to send this message 
'olMail.Send 
'Be kind to your environment and clean 
'up your unused objects 
'Set olMail = Nothing 
'Set olapp = Nothing 
'--end code block

its working , thx all

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.