バッチを作成するための 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