Applescript Outlook以獲取電子郵件的名稱

Question

我正在嘗試回覆電子郵件，並希望根據已知事實（包括他們的電子郵件地址爲first.last@company.com）包含我正在響應的人的名字。

這裏是我到目前爲止，但似乎無法得到的電子郵件地址或名稱：

on run 
tell application "Microsoft Outlook" 
    set replyToMessage to selection 
    if (replyToMessage is "") then 
     -- no email selected, don't continue 
     display dialog "No email is selected!" 
     return 
    end if 
    set theRecpt to extract name from sender of replyToMessage as text 
    set replyMessageSubj to subject of replyToMessage 
    set replyMessage to reply to replyToMessage without opening window 

    --need variable theName to get name or email to parse here 

    if has html of replyMessage then 
     log "HTML!" 

     set the content of replyMessage to ("<p>Hi " & theName & ",<br><br>This is my email body 
    else 
     log ("PLAIN TEXT!") 
     set the plain text content of replyMessage to "Hi " & theName & " 
     This is my email body" & return & (the plain text content of replyMessage) 
    end if 
    open replyMessage -- may not need to do this, you could just send it 
end tell 
end run 

任何幫助，將不勝感激。

更新：我已經試過這樣：

 set sender's address of newMessage to "first.last@company.com" 

我收到以下錯誤：

Microsoft Outlook got an error: Can’t make address of sender of outgoing message id 292223 into type specifier. 

Answer 1

嘗試：

tell application "Microsoft Outlook" 
    set replyToMessage to selection 

    if replyToMessage = missing value then 
     -- no email selected, don't continue 
     display dialog "No email is selected!" 
     return 
    end if 

    set theName to name of (get replyToMessage's sender) 
    set replyMessageSubj to replyToMessage's subject 
    set replyMessage to reply to replyToMessage without opening window 

    if has html of replyMessage then   
     log "HTML!" 
     set the content of replyMessage to ("<p>Hi " & theName & ",<br><br>This is my email body ") 
    else 
     log ("PLAIN TEXT!") 
     set the plain text content of replyMessage to "Hi " & theName & " 
       This is my email body" & return & (the plain text content of replyMessage) 
    end if 
    open replyMessage 
end tell