宁静海

(
echo "to: ${MAIL_TO}"
echo "from: ${MAIL_FROM}"
echo "subject: ${SUBJECT}"
echo "mime-version: 1.0"
echo "content-type: multipart/mixed; boundary=\"==Multipart_Boundary_x${RANDOM_NUM}\""
echo
echo "--==Multipart_Boundary_x${RANDOM_NUM}"
echo "content-type: text/plain"
echo
echo "Content detials is here..........."
echo
echo "--==Multipart_Boundary_x${RANDOM_NUM}"
echo "content-type: application/octet-stream; name=threads_dump_${DUMP_TIME}.dmp"
echo "content-transfer-encoding: base64"
echo
openssl base64 -in "${ATTACHMENT_FILE_PATH}"
echo
) | /usr/sbin/sendmail -t -i

RANDOM_NUM=`date|md5sum|awk '{print $1}'`

Public Function IsExsitTab(tabControlH, tabHeadStr) As Boolean
    tabCount = tabControlH.Object.TabPages.Count
    For i = 0 to tabCount - 1
        Set currentTabPage = tabControlH.Object.TabPages.Item(i)
        tabHead = currentTabPage.Text
        If tabHead = tabHeadStr Then
            IsExsitTab = True
            Exit Function
        End If
    Next
    IsExsitTab = False
End Function

关联

 QTP 根据Head名选择DevExpress的Tab