Outlook and bcc

A

alvin Kuiper

Hi!
I have try this
After my mail setup last line:
msg = msg & "</table>"
then i try this
Set objRecip = objMail.Recipients.Add("Mymail")
objRecip.Resolve
If objRecip.Resolved Then
objRecip.Type = olBCC ' 3
End If
addee = "Mymail"
With objMail
.To = addee
.Subject = "Booking"
.HTMLBody = msg
On Error GoTo cancelvalgt
.Send
End With

I get my mail, with addee
But not the Bcc mail
What is wrong here?

Alvin
 
J

Joel

You should only get one e-mail, not two. BCC just means other people on the
distruibution list won't see your name on the distriobution. It doesn't
change the number of copies of the e-mail that is sent.
 
A

alvin Kuiper

Ok
But what i want is to send the mail to someone
and send the same mail to another using Bcc
To test it i just use my mail acount
And i have try this

addee = "(e-mail address removed)"
With objMail
.To = addee
.BCC = "(e-mail address removed)"
.Subject = "Booking"
.HTMLBody = msg
'On Error GoTo cancelvalgt
.Send
End With

So how can i send the same mail using Bcc
To another person.

Alvin

"Joel" skrev:
 
A

alvin Kuiper

Ok
But what i want is to send the mail to someone
and send the same mail to another using Bcc
To test it i just use my mail acount
And i have try this

addee = "(e-mail address removed)"
With objMail
.To = addee
.BCC = "(e-mail address removed)"
.Subject = "Booking"
.HTMLBody = msg
'On Error GoTo cancelvalgt
.Send
End With

So how can i send the same mail using Bcc
To another person.

Alvin
"Joel" skrev:
 
P

Patrick Molloy

outlook is smart (no, honest it is!)
it will "recognise" duplicate mail addresses and not sent the addressee more
than one mail. If you put your own address in the TO and the BCC
you'll get the one copy
you don't need to have anything in the TO field. just use the BCC field
 
A

alvin Kuiper

Ok thanks
is working
Now when i send this message
it is from my mail acaount, can i write another
mail acount, on that way so when someone click
 
A

alvin Kuiper

Hi
Thanks
I can't get it to use a variabel
Dim saelger As String
Dim saelgermail As String
saelgermail = Range("beregn!$d$30").Value
saelger = """SenderName"" & salgermail & "

..SentOnBehalfOfName = saelger

Alvin
"Ron de Bruin" skrev:
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top