私はこれほど長い間この仕事に取り組んできました。私は予定を作成し、それを誰かに送るボタンを作ろうとしています。これまでのところ、私が望む変数で予定を作成するのに成功しましたが、それを適切な人に送る方法を理解することはできません。それをまったく送信してください。私はVBA内のOutlookのアプリケーションに非常に新しいですので、私と一緒に穏やかな、しかし、ここに私のコードは、これまでのところです。しかしそうアポイントメントを送るVBA
Sub appt()
Dim OutApp As Object
Dim OutMail As Object
Dim duedate As String
Dim currentrow As String
Dim currentsheet As String
Dim owner As String
currentsheet = ActiveSheet.Name
currentrow = Range("C10:C" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
duedate = Range("C" & currentrow).Offset(0, 1)
owner = Range("C" & currentrow).Offset(0, 2)
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(1)
On Error Resume Next
With OutMail
.Recipients = Range("M3")
.Subject = "Next PDB Task for " & currentsheet
.Importance = True
.Start = "8:00 AM" & duedate
.End = "8:00 AM" & Format(Date + 5)
.ReminderMinutesBeforeStart = 10080
.Body = "Text and Stuff"
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
Unload Emy
End Sub
、これは間違いなく、私はそれがで実行していますシートから必要な情報をつかんされ、それはどこにも行きません。 .Recipients以外のものを使う必要がありますか?これを転送することは可能ですか(Forwardとか?)?どんな助けでも大歓迎です!!!
P.S.私が予定を送信したい電子メールアドレスは、セルM3にあります。
'Send'コマンドだ ?また、一番上の段落の人には向いていないと言いますが、あなたが望む情報を間違いなく掴んでいると言います。メールを正しく入力していますか?送信しませんか? – BruceWayne
outMail.to = range( "m3") –
sendコマンドはありません。私は1つ必要ですか?それはメールアイテムを作成するのではなく、私の画面に表示される予定です。そしてそれはシートから適切な情報を引き出して、apptマクロを記入します。それが私の意図です。 - To BruceWayne – ladymrt