0

バッチを作成するための 2 つの入力ソースがあります。1 つ目はフォルダーのインポート、2 つ目は電子メールのインポートです。

画像のソースが電子メールの場合は画像の回転を許可しないという条件を追加する必要があり、ソースがフォルダのインポートの場合は画像を回転させる必要があります。

このためのスクリプトを KTM に追加しました。画像のソースの適切なメッセージを表示していますが、画像の回転を止めていません。

以下のスクリプトを参照してください。

Public Function setRotationRule(ByVal pXDoc As CASCADELib.CscXDocument) As String
   Dim i As Integer
   Dim FullPath As String
   Dim PathArry() As String

    Dim xfolder As CscXFolder

    Set xfolder = pXDoc.ParentFolder

    While Not xfolder.IsRootFolder
        Set xfolder = xfolder.ParentFolder
    Wend
    'Added for KTM script testing
    FullPath= "F:\Emailmport\dilipnikam@gmail.com_09-01-2014_10-02-37\dfdsg.pdf"'

    If xfolder.XValues.ItemExists("AC_FIELD_OriginalFileName") Then
        FullPath= xfolder.XValues.ItemByName("AC_FIELD_OriginalFileName").Value
    End If

    PathArry() = Split(FullPath,"\")
    MsgBox(PathArry(1))

    If Not PathArry(1) = "EmailImport" Then
        For i = 0 To pXDoc.CDoc.Pages.Count - 1
            pXDoc.CDoc.Pages(i).Rotation = Csc_RT_NoRotation
        Next i
    End If

End Function
4

1 に答える 1