オーバーフォーティーおやじログ

ローカルストレージって興味はあったんだけどなかなか 手が出せていなくて。初心者にはハードルが高いかなと 思っていたら案外すんなりいけたので、ローカル掲示板なんか 組んでみました。 というより、 ここ の課題ですが・・・。 ただ業務系のアプリ組むときでも面白そうなことができそうかなぁと 思いつつ。 まぁへっぽこプログラマなんでダメダメソースですがね まずはHTML ＜!DOCTYPE html＞ ＜html＞ ＜head＞ ＜title＞localStorageのサンプル＜/title＞ ＜script src="http://code.jquery.com/jquery-2.0.0.min.js"＞＜/script＞ ＜script src="test2.js"＞＜/script＞ ＜link rel="stylesheet" href="test2.css" type="text/css"＞ ＜/head＞ ＜body＞ ＜div id="form"＞ ＜input id="clearButton" type="button" value="全クリア"＞ ＜ul＞ ＜li class="name"＞ ＜label for = "name"＞名前＜/label＞ ＜input id="formName" type="text" size="20" maxlength="20" placeholder="氏名をここに入力してください。"＞ ＜/li＞ ＜li class="post"＞ ＜label for = "post"＞投稿内容＜/label＞ ＜textarea id="formText" cols=&q

ありがちだけどメールのテンプレートをEXCELに作って そいつを送信するとか言うCDOのメール送信用マクロ作成しました。 まぁ、決してやってはいけない用途で作ったんですが・・・・。 だいたい1つずつ手でメールを打つのもなぁ。 かといってBccで全員に送るのもなぁ。というので けど本当は手書きでやるべきですがね。 ・EXCELを処理する本体。 ' AdressListにある区分、会社名、氏名を引いてきて ' 区分に応じたテンプレートのメールを送信する ' 区分に応じてメール件名、テンプレート、署名が可変となる ' ' Sub ボタン1_Click() Const Replaceword = "●●" 'メールで埋め込みしたい場合の置換前文字列 Dim rtn As String Dim selectFlg As String '送信テンプレート判定用フラグ Dim Category As String '送信属性(本文判定用) Dim toMailaddr As String '宛先メールアドレス Dim toCompany As String '会社 Dim toName As String '名前 Dim toHeader As String '宛名 Dim messagetxt As String '本文 Dim signature As String 'メール署名