Basp21 は Down Load! BASP21-2003-0211.exe (1.44MB) がおすすめです。 ※ ボタンは ActiveX でないとダメですこれだけではただのお遊びですが、メールというのはとても応用手段の多いものです。とりあえず Basp21 が古すぎて、Gmail はアウトだと思います。テストはさくらインターネットのメールで行っています。 でも、ローカルとか社内なら十分に使えます。 ※ 受信は Subject、From、Dateヘッダーの内容のみを返します
Const SMTP As String = "xxxxxxxx.sakura.ne.jp:587"
Const POP As String = "xxxxxxxx.sakura.ne.jp"
Const RCVDIR As String = ">C:\temp\rcvmail"
Dim Basp21 As Object
Private Sub ボタン_Click()
MsgBox ("OK")
Set Basp21 = CreateObject("Basp21")
Dim ErrMessage As Variant
ErrMessage = Basp21.SendMail( _
SMTP, _
Worksheets("Sheet1").Cells(3, 5).Value, _
Worksheets("Sheet1").Cells(3, 8).Value & vbTab & Worksheets("Sheet1").Cells(4, 8).Value & ":" & Worksheets("Sheet1").Cells(5, 8).Value, _
Worksheets("Sheet1").Cells(1, 5).Value, _
Worksheets("Sheet1").Cells(2, 5).Value, _
"" _
)
If ErrMessage <> "" Then
MsgBox (ErrMessage)
Else
MsgBox ("メール送信が終了しました｡")
End If
Dim output As Variant
Dim I As Integer
output = Basp21.RcvMail(POP, _
Worksheets("Sheet1").Cells(4, 8).Value, _
Worksheets("Sheet1").Cells(5, 8).Value, _
"LIST", _
RCVDIR)
If IsArray(output) Then
For I = 0 To UBound(output)
Worksheets("Sheet1").Cells(I + 6, 4).Value = output(I)
Next
Else
MsgBox (output)
End If
Set Basp21 = Nothing
End Sub
メールアドレスをリンクしないようにするのは、オプションの文書校正 => オートコレクトのオプション => 入力オートフォーマットの先頭のチェックボックスをオフパスワードの編集は、ユーザ定義で **;**;**;** ( こんなのあるんですね )
ダウンロードページ
元々は
3年も経つと、できあがるものも変わってきました。シェーダも増えたし、簡単な背景用の環境マップもいくつかありますし、Iray そのものに慣れたせいもあります。というか、グラボを３年前は持ってなかったので練度もだいぶ違います。
ただ、この絵に関してはレンダリング時間が短かったので拡大すると粗い粒子が目立ちます。
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
