たまには更新しないと…
表題の機能を探していたところ、
OKWaveでわざわざ質問者のために作成している人がいた。
http://okwave.jp/qa/q3434242.html
参考にならないサイトばかりの中、ピンポイントで求めるものが見つかったので歓喜。
消された時のために保存。
Private Declare Function ShellExecute Lib "SHELL32.dll" _
Alias "ShellExecuteA" _
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub Sample0710270(メール As MailItem)
一時フォルダ = "\\ファイルパス）"
For Each 添付ファイル In メール.Attachments
ファイル名 = 一時フォルダ & "\" & 添付ファイル.DisplayName
添付ファイル.SaveAsFile (ファイル名)
Call ShellExecute(lngHwnd, "print", ファイル名, "", "", 1)
Next 添付ファイル
End Sub
【宮下あきら】私立極道高校～男塾に通底するモチーフ
「世紀末博狼伝サガ」こそが宮下あきらの最高傑作では・・・？と思う昨今だが、私立極道高校と男塾に共通するモチーフについてブログに残しておこう。 まずは舞台装置が私立高校？と私塾？というのは言うまでもないが・・・ 学校の支配者が巨人 男塾：大豪院邪鬼 私立極道高校：生徒会長 顔がな...
1 件のコメント:
具体的にこのプログラムの
Sub Sample0710270(メール As MailItem)
一時フォルダ = "C:\Documents and Settings\User_Name\デスクトップ\temp"
For Each 添付ファイル In メール.Attachments
ファイル名 = 一時フォルダ & "\" & 添付ファイル.DisplayName
添付ファイル.SaveAsFile (ファイル名)
Call ShellExecute(lngHwnd, "print", ファイル名, "", "", 1)
Next 添付ファイル
End Sub
添付ファイルやらメールやらの日本語の部分をどのように変えて使用したらいいのでしょうか？例文を作っていただけるとありがたいです。
コメントを投稿