vbaでワードに反応してメールを送るvbaを作ったのですが自由に添付ファイルをつけれるようにしたいです
どうしたらいいでしょうか?
Sub ファイル自由参照()
Const olMailItem = 0
Dim file As String
Dim pr As Presentation
Dim sl As Slide
Dim sh As Shape
Dim tb As Table
Dim r As Integer
Dim c As Integer
Dim s As String
Dim f1 As Boolean
Dim f2 As Boolean
Dim ol As Object
Dim mail As Object
With Application.FileDialog(msoFileDialogOpen)
.Filters.Add "ppt", "*.ppt?"
.InitialFileName = "ファイル名"
.AllowMultiSelect = False
If Not .Show Then Exit Sub
file = .SelectedItems(1)
End With
Do
Set pr = Presentations.Open(file)
For Each sl In pr.Slides
f1 = False
f2 = False
For Each sh In sl.Shapes
If sh.HasTable Then
Set tb = sh.Table
For r = 1 To tb.Rows.Count
For c = 1 To tb.Rows(r).Cells.Count
s = tb.Rows(r).Cells(c).Shape.TextFrame2.TextRange.Text
If InStr(s, "フレッツ") Then f1 = True
If InStr(s, "秋田") Then
If r <> tb.Rows.Count Then
If IsNumeric(tb.Rows(r + 1).Cells(c).Shape.TextFrame2.TextRange.Text) Then f2 = True
End If
End If
If f1 And f2 Then Exit Do
Next
Next
End If
Next
Next
MsgBox "無かった"
Loop Until True
pr.Close
If Not (f1 And f2) Then Exit Sub
MsgBox "見つけた" 'メール送信
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(olMailItem)
mail.Display
mail.To = "メアド" '宛先
mail.Subject = "件名"
mail.Body = "本文"
mail.Send '送信
ol.Quit
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは、
>VBA 添付ファイルをつけてメールを送る方法について
>自由に添付ファイルをつけれるようにしたいです
自由の意味がわからないのですが
Attachments.Addメソッドで添付できると思います
MsgBox "見つけた" 'メール送信 より下の部分が該当します。
A1セルに添付ファイルのファイル拡張子を含むフルパスが記載されている場合
書き換えていますが、こんな感じ
Set ol = CreateObject("Outlook.Application")
With ol.CreateItem(olMailItem)
.To = "メアド" '宛先
.Subject = "件名"
.Body = "本文"
.Attachments.Add Cells(1, 1).Text, 1, 1, "Test"
.Display
'.Send '送信
End With
ol.Quit
1はOlAttachmentType olByValue 元のファイルのコピーを添付です
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PHPからメールを送る@さくらイ...
-
メールの本文をSmartyにしたい
-
mb_send_mail関数が利用出来ない
-
PHPの自動返信メールフォー...
-
onedrive にexcelファイルをア...
-
PHPで新しいウインドウで開く命...
-
フォントの色を変えるには?
-
PHP8を使うと、大量のWarningが...
-
ImageCreate関数が undefined f...
-
PHP4対応のサーバーではinclude...
-
現在位置より2つ上のディレク...
-
<HTML>~入る タグ が無いから ...
-
これの対応OSを教えて下さい。p...
-
3つ以上の論理積は利用可能なの...
-
PHPからMSSQLへの接続結果の文...
-
CFileDialogの最初のディレクト...
-
PHP MySql ページング
-
form actionで二つ送信先を指定...
-
VBAでJPGサイズ変更
-
拡張子php画像をjpg画像等に変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
php 完了画面の送信メールのコ...
-
さくらサーバーにて、phpからメ...
-
メールフォームのタイトルが文...
-
PHPsendmailにて送信元を変更
-
mb_send_mail関数が利用出来ない
-
PHPからロリポップ!のメールサ...
-
VBA 添付ファイルをつけてメー...
-
mailやmb_send_mail関数で、本...
-
sendmailでエラーがでます
-
PHPでの仮登録時の会員認証メー...
-
mb_send_mail() 第 4、5 引数の...
-
phpでメール送信できません 原...
-
PHPからメールを送る@さくらイ...
-
PHPMailerのコードエラーが解決...
-
ローカル環境でのメール送信
-
mb_send_mailについて
-
PHPでメールを送信するには
-
メールの本文をSmartyにしたい
-
mail関数を使った場合のReturn-...
-
PEAR の Mail/Queue.php で文...
おすすめ情報