Nov 10, 2003 #1 kitnba MIS Joined Jul 31, 2000 Messages 132 Location HK myRecipient =myItem.Recipients.Add(alltrim(a_sender[n])+'@xxx.com.hk')) How do I change this command in the CC field? I want add our address to CC field. Thanks
myRecipient =myItem.Recipients.Add(alltrim(a_sender[n])+'@xxx.com.hk')) How do I change this command in the CC field? I want add our address to CC field. Thanks
Nov 10, 2003 1 #2 Mike Gagnon Programmer Joined Apr 6, 2002 Messages 8,067 Location CA kitnba oOutLookObject = CreateObject("Outlook.Application" oEmailItem = oOutLookObject.CreateItem(0) WITH oEmailItem .Recipients.Add("moe@3stooges.com" .CC = "you@yourcompany.com" .Subject = "Automation sample" .Importance = IMPORTANCENORMAL .Body = "This is easy!" .Send ENDWITH RELEASE oEmailItem RELEASE oOutLookObject Mike Gagnon If you want to get the best response to a question, please check out FAQ184-2483 first. Upvote 0 Downvote
kitnba oOutLookObject = CreateObject("Outlook.Application" oEmailItem = oOutLookObject.CreateItem(0) WITH oEmailItem .Recipients.Add("moe@3stooges.com" .CC = "you@yourcompany.com" .Subject = "Automation sample" .Importance = IMPORTANCENORMAL .Body = "This is easy!" .Send ENDWITH RELEASE oEmailItem RELEASE oOutLookObject Mike Gagnon If you want to get the best response to a question, please check out FAQ184-2483 first.
Nov 10, 2003 Thread starter #3 kitnba MIS Joined Jul 31, 2000 Messages 132 Location HK if I want to cc 4 email address, what can I do? can I use myRecipient =myItem.cc.Add(alltrim(a_sender[n])+'@xxxx.hk')) this same code? Upvote 0 Downvote
if I want to cc 4 email address, what can I do? can I use myRecipient =myItem.cc.Add(alltrim(a_sender[n])+'@xxxx.hk')) this same code?
Nov 10, 2003 #4 Mike Gagnon Programmer Joined Apr 6, 2002 Messages 8,067 Location CA No exactly Var1 = "you@yourcompany.com" Var2 = "us@ourcompany.com" myItem.cc = Var1+";"+var2 Note CC does not require the ADD function Mike Gagnon If you want to get the best response to a question, please check out FAQ184-2483 first. Upvote 0 Downvote
No exactly Var1 = "you@yourcompany.com" Var2 = "us@ourcompany.com" myItem.cc = Var1+";"+var2 Note CC does not require the ADD function Mike Gagnon If you want to get the best response to a question, please check out FAQ184-2483 first.
Nov 11, 2003 #5 puruawade Programmer Joined Oct 13, 2003 Messages 17 Location IN I am doing it exactly the way Mike has suggested. (var1+";"+var2 and so on) But kitnba has not specified whether he (or she ? Difficult to make out. Pardon me pl.) is creating the object as Mike has put it. i.e. oOutLookObject = CreateObject("Outlook.Application" oEmailItem = oOutLookObject.CreateItem(0) But if one is using MAPI and default email system is set to Outlook, this can be achived by setting RecipType property of MAPIMessage control to 2. Puru Upvote 0 Downvote
I am doing it exactly the way Mike has suggested. (var1+";"+var2 and so on) But kitnba has not specified whether he (or she ? Difficult to make out. Pardon me pl.) is creating the object as Mike has put it. i.e. oOutLookObject = CreateObject("Outlook.Application" oEmailItem = oOutLookObject.CreateItem(0) But if one is using MAPI and default email system is set to Outlook, this can be achived by setting RecipType property of MAPIMessage control to 2. Puru
Nov 11, 2003 #6 Mike Lewis Programmer Joined Jan 10, 2003 Messages 17,516 Location Scotland Kitnba, Try this: myRecipient =myItem.Recipients.Add(alltrim(a_sender[n])+'@xxx.com.hk')) myRecipient.Type = 2 Mike Mike Lewis Edinburgh, Scotland http://www.ml-consult.demon.co.uk Upvote 0 Downvote
Kitnba, Try this: myRecipient =myItem.Recipients.Add(alltrim(a_sender[n])+'@xxx.com.hk')) myRecipient.Type = 2 Mike Mike Lewis Edinburgh, Scotland http://www.ml-consult.demon.co.uk