Home > Archives >

背景・パターン

商用無料、クレジット表記不要のパターン配布サイト | CREAMU
http://blog.creamu.com/mt/2009/09/post_167.html

Zガンダム見終わりました。

おもしろかった。

ファーストガンダムは見る前からいろいろと聞いたことがあるから「これがあの有名なシーンか」みたいなのがあったりしましたが、Zはまったく何も知らずに見れたのでよりストーリーを楽しめた気がします。

ただ、何も知らなかったぶん次から次へと出てくるキャラクターとかモビルスーツの名前が覚えられない。。。

その中で好きやったのがリック・ディアス。

なんやろ、名前の響きがいいですよね、リック・ディアス。

あと、アポリー中尉も好きでした。

あと、シロッコ。なんかこうゆう小悪党的なキャラは好きです。

次は何を見よう。

Zの映画版か、ZZか、でも早く逆襲のシャアを見たい。

iPhone買いました。

  • 2009-09-14 (月)
  • 未分類

ついに。

前から欲しいとは思っていたのですが、なんか先延ばしにしてました。

ただ、今月頭に先輩が買ったって話を聞いたのと9/31まで「iPhone for everybody」ってキャンペーンをやってるみたいで、これは今買うしかない！って感じになって買いました。

ただ、買ってすぐ友達と飲みに行ってもう眠いので、ぜんぜんいじってません。

アプリとかケースとかいっぱいあるし、情報サイトもいっぱいあるし、これから数日はiPhoneいじりで忙しそうです。

2～3週間くらいしたら他の人がやってるみたいにインストールしたアプリまとめみたいなんを書いてみようと思います。

エクセルVBAで複数の宛先を指定してメールを送信する。

  • 2009-09-12 (土)
  • 未分類

昨日書いたコードで、エクセルのVBAからメールを送ることはできるようになりました。

で、一行一顧客みたいな感じで表を作っていたのですが、一つのお客さんでも複数のメールアドレスに送りたい、ってことがあります。

二行にすればすむ話なんですが、同じお客さんの名前が二行ある、ってのがなんか嫌でなんとかならんかと模索しました。

BASP21のサイトを見ると、複数の宛先を入れる場合は

1
mailto = "id1" & vbtab & "id2"

とするらしい。

ってことはや、宛先を「,」で区切って、「,」を「vbtab」に置換すればいいんじゃないか、ってことでコードを修正してみました。

1
2
mailto = """" & Worksheets("Sheet1").Cells(1, 1) & """"
mailto = Replace(mailto, ",", """" & vbTab & """")

上記のように修正したことで、ちゃんと複数宛先に送る事ができました。

CCも入れる場合は

1
mailto = "id1" & vbtab & "id2" & vbtab & "cc" & vbtab & "id2"

ってやればいいみたいです。

CCも一個セルを用意して、複数の場合は宛先と同じようにすればいいから、CCに担当者を複数入れて、ってゆうのもできそうです。

BASPをインストールしてエクセルVBAで添付ファイル付メールを送信する。

  • 2009-09-11 (金)
  • 未分類

エクセルのVBAでメールを送信するコードを書きました。

BASP21ってゆう何かをインストールしないと動きません。

参考サイトはここ
http://www.hi-ho.ne.jp/babaq/basp21.html

なんかメールの送受信以外にもFTPアップロードとかもできるみたい。

基本的なメール送信部分のコードは以下の通りです。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub sendmail()

    Dim bobj
    Dim msg As String
    Dim server As String
    Dim mailto As String
    Dim mailfrom As String
    Dim subject As String
    Dim body As String
    Dim file As String

    Set bobj = CreateObject("basp21")
    server = "smtp.xxxx.com" 'SMTPサーバ
    mailto = "xxxx@xxxx.com" '宛先
    mailfrom = "xxxx@xxxx.com" '差出人
    subject = "ここに件名を入れます。"
    body = "ここに本文を入れます。"
    file = "ここに添付ファイルへのパスを入れます。"

    msg = bobj.SendMail(server, mailto, mailfrom, subject, body, file)
    Set bobj = Nothing
    If msg <> "" Then '返り値はエラーの内容。送信成功の場合は空の文字列を返すので、エラーの場合のみ、エラーメッセージを表示
    MsgBox msg
    Else
    End If

End Sub

後は宛先とか件名とかをエクセルの各行に入れてループさせる。

同じメールをお客さんに一気に送信するときに使うと便利です。

Return to page top

QLOOKアクセス解析