property prog_name : "Mail"
property Sichern : "Sichern"
property keepOrSkip : "Ersetzen" -- "Abbrechen

tell application "System Events"
    tell application process prog_name
        set frontmost to true
        keystroke "p" using {command down}
        repeat until window 1 exists
            delay 0.1
        end repeat
        click menu button "PDF" of sheet 1 of window 1
        click menu item 2 of menu 1 of menu button "PDF" of sheet 1 of window 1
        repeat until window Sichern exists
            delay 0.1
        end repeat
        click button Sichern of window Sichern
        if exists sheet 1 of window 1 then click button keepOrSkip of sheet 1 of window Sichern
    end tell
end tell