| Line 363... |
Line 363... |
| 363 |
End If
|
363 |
End If
|
| 364 |
|
364 |
|
| 365 |
objEH.CatchORA ( OraSession )
|
365 |
objEH.CatchORA ( OraSession )
|
| 366 |
|
366 |
|
| 367 |
'================= Send Email ==========================
|
367 |
'================= Send Email ==========================
|
| 368 |
'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
|
368 |
'Call Send_Email ( "Release Manager Notifications", ADMIN_EMAIL, ADMIN_EMAIL, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
|
| 369 |
|
369 |
|
| 370 |
' ---------- Attachments -------------
|
370 |
' ---------- Attachments -------------
|
| 371 |
oAttachmentsDict.Add "images\i_mail.gif", "RM-Envelop"
|
371 |
oAttachmentsDict.Add "images\i_mail.gif", "RM-Envelop"
|
| 372 |
oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
|
372 |
oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
|
| 373 |
|
373 |
|
| 374 |
Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
|
374 |
Call Send_Email ( "Release Manager Notifications", ADMIN_EMAIL, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
|
| 375 |
|
375 |
|
| 376 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
376 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 377 |
OraDatabase.Parameters.Remove "CURRENT_USER"
|
377 |
OraDatabase.Parameters.Remove "CURRENT_USER"
|
| 378 |
|
378 |
|
| 379 |
End Sub
|
379 |
End Sub
|