人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのシートに、ボタンを設け、これをクリックするとそのシートのデータを、Outlook Express で送信できるVBAを教えてください。宛先、送信者名、件名は、固定で自動的にセットできるもの。データは、本文にcsv形式、または添付ファイル。

●質問者: iwa317
●カテゴリ:コンピュータ
✍キーワード:Outlook Express エクセル クリック データ ボタン
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● dtm_master
●50ポイント

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html

VBA応用(CDOでメール送信)

Outlook Expressを使わないで送信する方法はだめですか?

◎質問者からの返答

大変詳しく、丁寧な内容で、驚いています。

内容を理解するには少々時間がかかりそうです。

検討します。ありがとうござ印した。


2 ● NetVista
●50ポイント

http://www.geocities.jp/elie_world/available_software/elie_outlo...

Elie_World 無料ソフト : Outlook メール送信 Excel

参考になりませんか?


Excelを電子メールで送信

このコードでExcelを電子メールで送信できます。


シートの送信

Sub MailSheet()

On Error GoTo Terminator

Application.ScreenUpdating = False

Dim shtName As String

shtName = ActiveSheet.Name

ActiveSheet.Copy

ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(shtName & _

”のコピー”shtName, ”Microsoft Excel File, *.xls”)

Application.DisplayAlerts = False

Application.Dialogs(xlDialogSendMail).Show

With ActiveWorkbook

.ChangeFileAccess xlReadOnly

Kill .FullName

.Close False

End With

Terminator:

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub


ブックの送信の


Sub MailBook()

Application.Dialogs(xlDialogSendMail).Show

End Sub

◎質問者からの返答

詳しい情報ありがとうございます。大変参考にななりました。とりあえず御礼まで。


3 ● saneppie
●50ポイント

http://homepage1.nifty.com/gak/MSTips/sendmail.html

ワークブックをメールで送付

VBAならずばりSendmailメソッドで良いかと思うのですが…。


Sub ボタン1_Click()

ActiveWorkbook.SendMail(”宛先アドレス”, ”件名”)

End Sub


↑これはExcel2000です。

http://support.microsoft.com/default.aspx?scid=kb;ja;821404

[OFF] Microsoft Word、Microsoft PowerPoint、または Microsoft Excel から電子メールを送信できない

MAPIが必要になりますが、Outlook Expressでしたら大丈夫かと思います。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/jap...

MSDN ライブラリ サイト移行に関する重要なお知らせ

↑こちらはVBになってしまいますが…。

◎質問者からの返答

ありがとうございました。シンプルで良いとおもいます。 試してみます。とりあえず御礼まで。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ