上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

--/--|スポンサー広告||TOP↑

環境:
Mac OS X 10.4.8
Mail.app 2.1(752/752.2)

Mail.app で選択中の Google アラートのリンクをまとめて開く AppleScript のつづき。
Mail.app で 1 件または複数件のメールを選択してスクリプトを実行すると、From のアドレスが googlealerts-noreply@google.com である HTML メールに含まれるリンクをまとめて開きます。

--スクリプトここから
set bs to (ASCII character 128)

tell application "Mail"
activate
set mesList to (selected messages of message viewer 1)
set urlList to {}
repeat with curMes in mesList
set addr to extract address from sender of curMes
if (addr is "googlealerts-noreply@google.com") then
set theSource to (source of curMes)
set greppedLines to (do shell script "echo " & quoted form of theSource & " | grep 'href=' | perl -pe 's/^.*(href=" & bs & "\"http:" & bs & "/" & bs & "/.+" & bs & "\"" & bs & ">).*$/${1}/;s/(^href=" & bs & "\"|" & bs & "\"" & bs & ">$)//g'")
set lineNum to ((number of every paragraph of greppedLines) - 3)
repeat with i from 1 to lineNum
set urlList to urlList & (paragraph i of greppedLines)
end repeat
end if
end repeat
activate
if urlList is not {} then
choose from list urlList with prompt "次のリンクを開きます。(command キー + クリックで項目を選択/解除)" default items urlList with multiple selections allowed
set theResult to result
else
display dialog "Google アラートのリンクを見つけられませんでした。" buttons {"OK"} default button 1 giving up after 3
return
end if
end tell

if theResult is not false then
repeat with curURL in theResult
open location curURL
end repeat
end if

スポンサーサイト

10/04|AppleScriptコメント(0)トラックバック(0)TOP↑
この記事にコメント
名前:
コメントタイトル:
メールアドレス:
URL:
コメント:

パスワード:
管理人だけに表示:
管理者にだけ表示を許可
この記事にトラックバック
プロフィール

AquaBowler

  • Author:AquaBowler
  • 現在の Mac 環境:
    iBook Late2001
    Mac OS X 10.4.11
フリーエリア
最近の記事
最近のコメント
最近のトラックバック
月別アーカイブ
カテゴリー
ブログ内検索
RSSフィード
リンク
del.icio.us
feed meter

RSS feed meter for http://kotoerisan.blog16.fc2.com/

FC2カウンター
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。