Ｐａｇｅ 706 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼EXCELからＡＣＣＥＳＳにレコードを登録したい・・。 ikedatti 03/2/8(土) 16:17 ─────────────────────────────────────── ■題名 ： EXCELからＡＣＣＥＳＳにレコードを登録したい・・。 ■名前 ： ikedatti ■日付 ： 03/2/8(土) 16:17 -------------------------------------------------------------------------
| ＥＸＣＥＬＶＢＡ超初心者です。 ＥＸＣＥＬでメールを受信してその内容をＡＣＣＥＳＳのテーブルに取り込む 事がしたいのですがわかりません。 以下のコードも作成してもらったものなのですがこのmsgの内容を ACCESSのメールテーブルに登録したいのです。 テーブルのフィールドは件名、発信者、日付、本文です。 どなたか、教えてください。 If IsArray(ar) Then For Each v In ar szFilename = v szDir = "c:\mail" szPara = "subject:from:date:nofile:" retv = ReadMail(szFilename, szPara, szDir) msg = "" If IsArray(retv) Then For Each s In retv 'ここで実際のメールの内容を受け取ることが出来ます。 'この内容をACCESSに登録していきたいのです。 msg = msg + s + vbCrLf Next Else msg = msg + s End If MsgBox msg Next Else Debug.Print ar 'エラー発生時は、配列でなくメッセージが戻ります。 End If |