Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: John Carr
  Where is John Carr?
 chicago
 Illinois - United States
 John Carr
 To: Yuri Rubinov
  Where is Yuri Rubinov?
 Philadelphia
 Pennsylvania - United States
 Yuri Rubinov
 Tags
Subject: RE: Outlook automatino sending BCC
Thread ID: 22333 Message ID: 22387 # Views: 13 # Ratings: 0
Version: Visual FoxPro 6 Category: Microsoft Office Automation
Date: Wednesday, April 16, 2003 9:18:06 PM         
   


Thank you !

> If I recall it correctly, they need to be separated by ";"
>
> BCC=""
> SCAN FOR INCL
> BCC=BCC+iif(not empty(BCC),"; ","")+ALLTRIM(MLIST.EMAIL)
> ENDSCAN
>
> loMessage.CC="Yuri Rubinov"
> loMessage.BCC=bcc
>
> > > Not quite clear what is the question; there are identical calls for to, cc and bcc, like:
> > >
> > > ?.items(ib).to
> > > ?.items(ib).cc
> > > ?.items(ib).bcc
> > >
> > > Any details on how do you [use my address in the 'To'] and what do you mean [put all my customers in "bcc"] ?
> > > .
> > > > Hello guys,
> > > >
> > > > I am trying to make a form that will send out emails to certain customers. Everything is working great except I want to use my email address in the "To" and put all my customers in "bcc".
> > > >
> > > > I am using outlook 2002 to send. Anyone know the object or flag I need to use to make my customers address go into "bcc"?
> > > >
> > > > JC
> >
> >
> > Here is a sniplet of code from my form.
> >
> > WITH THIS
> >
> > LOCAL loMessage , loInspector
> > loMessage = .oOutlook.createitem(olMailItem)
> > loMessage.Recipients.ADD(MASTEREMAIL)
> > ******
> > ** MLIST IS A CURSOR I BUILT WITH ALL CUSTOMERS IN A GRID ALLOWING THE USER TO JUST SELECT WHO THE EMAIL **GOES TOO
> > ******
> > SELECT MLIST
> > SCAN FOR INCL=.T.
> > BCC="'"ALLTRIM(MLIST.EMAIL)+"'"
> > loMessage.Recipients.ADD(&BCC) && THIS IS WHERE i NEED TO TURN INTO BCC ADDRESS
> > ENDSCAN
> > loMessage.Recipients.ResolveAll()
> > loMessage.subject = MSUBJECT
> > loMessage.body = MBODY
> > loInspector = loMessage.GetInspector
> > loInspector.ACTIVATE()
> >
> > ENDWITH


COMPLETE THREAD