Hi everyone :) I have a quick question. I have this email script which works great, but I tried changing the static email at the AddBCC function to a variable and it doesn't send it. I know I got to be doing something wrong b/c I'm kind of not 100% familer with vbscript. I'm more of a C#/.NET guy. Here's the line:
function WA_Universal_Email_1_SendMail(RecipientEmail)
dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject
MailAttachments = ""
MailBCC = ""
MailCC = ""
MailTo = ""
MailBodyFormat = ""
MailBody = ""
MailImportance = ""
MailFrom = "" & cStr((rsUser_Quote.Fields.Item("users_email").Value)) & ""
MailSubject = "New Bastech speedQUOTE Request (Quote No. " & cStr(Session("svQuotes_ID")) & ")"
'Global Variables
userEmail = "" & cStr((rsUser_Quote.Fields.Item("users_email").Value)) & ""
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""
set WA_MailObject = WAUE_Definition()
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
MailTo = gAddRecipient
gAddRecipient = ""
else
'To Entries
end if
'Attachment Entries
'BCC Entries
set WA_MailObject = WAUE_AddBCC(WA_MailObject,userEmail)
MailBCC = gAddBCC
Am I doing it wrong? Maybe someone could point me in the right direction? Thanks :)
Question
sathenzar
Hi everyone :) I have a quick question. I have this email script which works great, but I tried changing the static email at the AddBCC function to a variable and it doesn't send it. I know I got to be doing something wrong b/c I'm kind of not 100% familer with vbscript. I'm more of a C#/.NET guy. Here's the line:
function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr((rsUser_Quote.Fields.Item("users_email").Value)) & "" MailSubject = "New Bastech speedQUOTE Request (Quote No. " & cStr(Session("svQuotes_ID")) & ")" 'Global Variables userEmail = "" & cStr((rsUser_Quote.Fields.Item("users_email").Value)) & "" gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,userEmail) MailBCC = gAddBCCAm I doing it wrong? Maybe someone could point me in the right direction? Thanks :)
Link to comment
Share on other sites
2 answers to this question
Recommended Posts