Excel VBA-通过excel为outlook约会选择的日期
Excel VBA是一种基于Microsoft Excel的宏语言，可以通过编写VBA代码来自动化执行各种任务。在这个问答内容中，我们需要通过Excel VBA来为Outlook约会选择日期。
首先，我们可以使用Excel VBA中的日期选择器控件来实现日期的选择。日期选择器控件可以让用户从一个日历中选择日期，方便且直观。
以下是一个简单的Excel VBA代码示例，用于通过Excel为Outlook约会选择日期：
Sub ScheduleOutlookAppointment()
Dim olApp As Object
Dim olApt As Object
Dim selectedDate As Date
' 创建Outlook应用程序对象
Set olApp = CreateObject("Outlook.Application")
' 创建Outlook约会对象
Set olApt = olApp.CreateItem(1) ' 1表示约会项
' 显示日期选择器并获取选择的日期
selectedDate = Application.InputBox("请选择约会日期:", Type:=1)
' 设置约会的开始时间和结束时间
olApt.Start = selectedDate & " 09:00:00"
olApt.End = selectedDate & " 10:00:00"
' 设置约会的主题和地点
olApt.Subject = "约会"
olApt.Location = "某个地点"
' 保存并发送约会
olApt.Save
olApt.Send
' 释放对象
Set olApt = Nothing
Set olApp = Nothing
MsgBox "已成功创建并发送约会!"
End Sub在上述代码中，我们首先创建了一个Outlook应用程序对象和一个约会对象。然后，通过显示日期选择器，让用户选择约会日期，并将选择的日期赋值给变量selectedDate。接下来，我们设置约会的开始时间、结束时间、主题和地点。最后，我们保存并发送约会。
这是一个简单的示例，你可以根据实际需求进行修改和扩展。同时，腾讯云提供了一系列云计算产品，如云服务器、云数据库、云存储等，可以帮助开发者构建稳定、可靠的云计算解决方案。你可以访问腾讯云官网（https://cloud.tencent.com/）了解更多相关产品和服务。
相关·内容
1回答
如何打开最后一个约会以确认它是创建的？
excel、vba
我使用Excel创建和保存Outlook约会。我希望看到一份确认它已经保存下来。
我最近看到的是显示Outlook日历。
Private Sub CommandButton1_Click()
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem
Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Sta
浏览 2提问于2018-12-30得票数 1
回答已采纳
2回答
我如何格式化我的".start“的时间部分，以写入我的outlook约会？我想使用来自用户的输入，这里是我的
vba、ms-access、outlook
如何格式化.start的时间部分以写入Outlook约会？
我想使用来自表单用户的输入，这里是我的代码。
这段代码在我的日历上创建了一个约会，但是将时间设置为12:00AM，而不是从表单中获取输入时间(Scheduled_Review_Time)。
我在属性中尝试了长时间、中时间和短时间格式。
private Sub Command160_Click()
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem
Set olApp = New Outlook.Application
Set olApt = olApp.Cr
浏览 2提问于2019-01-27得票数 0
2回答
将excel表格复制到outlook邮件中并保留格式
vba、excel、email、outlook
我正在使用VBA在excel中发送一系列单元格的电子邮件。当我复制到outlook时，表格的大小变得乱七八糟，所有的文本都被换行。
我想保持我的表格的格式和大小不变，并且我试图复制为图片，但图片变得非常小。是A1:AP98寄来的。
有人能帮上忙吗？我正在使用Microsoft office 2010
下面是我的代码
Sub SendEmail()
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
浏览 1提问于2018-02-02得票数 0
回答已采纳
1回答
约会是从日历开头开始的吗？
vba、excel、excel-2010
我正在尝试从VBA宏中生成约会，并将其放入Outlook的日历中。我的代码如下...
Sub CommandButton1_Click()
Const olAppointmentItem As Long = 1
Dim olapp As Object
Dim OLNS As Object
Dim OLAppointment As Object
On Error Resume Next
Set olapp = GetObject(, "Outlook.Application")
If olapp Is Nothing Then
浏览 0提问于2012-11-26得票数 0
回答已采纳
1回答
如何向多个收件人发送多封邮件？
excel、vba、outlook
我正在尝试从Excel工作表向电子邮件地址列表发送多封电子邮件。 我有一个包含部门和经理列表的Excel文件。 我需要向每个部门的每个经理发送一封电子邮件，其中包含一些信息。 我需要为下一封电子邮件保留'Rows‘值(尝试使用do Until循环)-但在第一封邮件生成后，所有变量都已初始化。 如何为下一封电子邮件保留'Rows‘值？ Sub Sample()
Dim olApp As Object
Dim olMailItm As Object
Dim SDest As String
Dim Class As
浏览 22提问于2019-04-23得票数 1
2回答
从Excel执行GetObject Outlook时出现自动化错误
excel、vba、outlook
我正在用Excel编写一个VBA代码，以便根据Excel文件中的一些信息发送Outlook邮件。一切都很好，它在我的电脑和其他人上运行得很好。但是当我为Outlook应用程序执行GetObject时，有一台计算机出现错误。
错误是"Automation error“
代码如下所示：
Dim olApp As Outlook.Application
Dim oltask As Outlook.taskitem
On Error Resume Next
'check if Outlook is running - **The code stopped here**
Set olA
浏览 11提问于2015-05-15得票数 0
1回答
使用密码保存Outlook攻击，然后转发
vba、outlook
我需要构建一个规则脚本，将outlook附件(excel专用)保存到用户的硬盘驱动器。然后，我需要添加一个密码到这个excel附件，然后转发它。
使用VBA开发工具保存和转发电子邮件/附件非常简单(见下文)。但是，我在向附件中添加密码时遇到了问题。这是可能的，还是我需要一个外部脚本/程序来完成这个任务？此外，你还有其他建议吗？
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c
浏览 1提问于2015-12-18得票数 0
回答已采纳
1回答
使用Excel在2013 MS Exchange中的所有公用文件夹日历中进行约会
excel、vba、outlook、appointment
我的代码在默认日历中运行良好，但我无法让它在AllPublicFolders日历中进行约会。我不能调用函数GetPublicFolder，因为我刚开始使用VBA。任何帮助都将不胜感激。
下面是我在所有公共文件夹中使用"Big Store A Calendar“的代码：
Option Explicit
Sub RegisterAppointmentList()
' adds a list of appointments to the Calendar in Outlook
Dim olApp As Outlook.Application
Dim olAp
浏览 18提问于2018-08-31得票数 0
1回答
如何在添加与会者后将附件添加到AppointmentItem？
vba、outlook、email-attachments、outlook-2003
因此，我正在编写一些代码，这些代码接受约会，并从约会中创建一些任务，并在发送之前检查是否存在攻击。
当我没有其他与会者时，代码可以正常工作。但是，一旦添加了与会者，代码就会在打开“文件附件”对话框时卡住。哎呀！！
我附上了下面的代码：
Public WithEvents myItem As Outlook.appointmentitem
Private Sub myItem_Write(Cancel As Boolean)
Dim myResult As Integer
Dim olApp As Outlook.Application
Dim olTsk As Tas
浏览 4提问于2012-06-07得票数 0
2回答
如何更改此代码，使其任务调度程序可以将其作为.vbs文件运行？
vba、outlook
我有一些vba代码，用附件发送电子邮件。它目前作为一个vba项目存在于excel中，但我希望能够将它保存为vbs脚本，这样我就可以使用任务调度程序每晚启动它。它只在我假设的项目模块中工作，因为我必须添加一个对outlook库的引用。如果我将脚本保存在记事本中作为一个.vbs，它将不会运行。
Option Explicit
Sub SendBasicEmail()
Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem
Set olApp = New Outlook.Application
浏览 2提问于2019-08-08得票数 1
回答已采纳
1回答
Outlook模板使用VBA拉出Excel
excel、vba、outlook
我有一个数据列表，其中包含各种输入细节(由日期、日期、金额等组成)。存储在excel工作表上。我试图自动支持的人谁在第一次参赛。
我正在编写的宏的目标是：
创建邮件对象
将邮件对象设置为outlook模板文件
设置并填写模板中有关原始条目作者(这就是我将发送给谁)的数据、他们留下的关于条目的注释，并为模板提取一些其他细节。
保存到草稿以供以后审阅/发送
这就是我必须要做的：
Sub SendMail()
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
浏览 0提问于2018-06-19得票数 0
回答已采纳
2回答
未在Excel中为AppointmentItem定义用户定义类型
vba、ms-office
我将中的示例复制到Excel中的VBA。
我的代码如下：
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)
我在Dim olAppt As Outlook.AppointmentItem行上得到了以下错误：“用户定义的类型未定义”。
这个问题应该如何解决？
我使用MS Office2003。
浏览 0提问于2010-09-05得票数 0
回答已采纳
2回答
宏无法基于工作表数据创建约会
excel、vba、outlook、appointment
我有一个运行的Excel宏，它从电子表格中获取活动名称、日期和时间，并将它们放入Outlook日历中。这在Outlook运行时运行良好，但在不运行时，宏不会进行约会。
我做了一个错误检查，它检查Outlook的运行实例是否正在运行，如果没有，就创建一个，但它仍然只在Outlook运行时起作用。
你知道为什么吗？
Sub SetAppt()
' Dim olApp As Outlook.Application
Dim olApt As AppointmentItem
Dim olApp As Object
'if an instance of out
浏览 0提问于2012-06-18得票数 0
回答已采纳
2回答
Outlook约会没有显示已添加的与会者
vba、outlook、appointment
我有一些问题，一些代码，我已经从网络弗兰肯斯坦。我有一个Word文档，它使用命令按钮运行一段代码，最终结果是添加了一个模板生成Outlook约会，以及收件人。我使用了两种不同的方法，它们各自提出了自己的问题。
方法1:生成约会，包括和显示与会者，但不允许正文的格式设置
Dim xOutlookObj As Object
Dim OMail As Object
Dim xMeeting As Object
Dim xDoc As Object
Dim myRequiredAttendee As Outlook.Recipient
Dim myOptionalAttendee As Outloo
浏览 5提问于2020-10-28得票数 0
1回答
将新创建的Outlook约会窗口放在前面
excel、vba、outlook
有没有办法把新创建的Outlook约会窗口带到前面来使用Sendkey功能？我正在从Excel创建新的约会，将数据从工作簿复制到正文，并通过发送密钥修改Skype会议的约会。但是，有时约会是在Excel后面打开的，SendKeys操作不起作用。 我试过使用AppActivate，但我猜我用了错误的方式，就像调试器说的Invalid procedure call or argument那样。此外，还欢迎替代方案。 我也试过了，但并不总是有效，有时预约窗口还是会在后台打开： Declare PtrSafe Function SetForegroundWindow Lib "user32&
浏览 11提问于2019-04-27得票数 0
回答已采纳
2回答
如何为发件人发送带有标志的电子邮件？
vba、outlook
我有一个Excel函数来发送电子邮件。是否可以为发送方添加一个带有提醒的标志？
编辑我不需要窗口本身，我只想为发送者设置一个提醒。
Function SendHTMLEmail()
Dim olApp As Object
Dim NewMail As Object
On Error GoTo err
Set olApp = CreateObject("Outlook.Application")
Set NewMail = olApp.CreateItem(0)
With NewMail
.subject = "subject"
.b
浏览 5提问于2020-09-15得票数 0
1回答
通过Outlook发送访问报告的特定页面的电子邮件
vba、ms-access
我有一个数据库，我想要一些VBA代码使我能够通过Outlook发送访问报告的特定页面。
例如，如果我想从报表中附加第10页到第20页。
我知道如何把报告附在电子邮件上。这是我的代码，可以正常工作，但是我想从Access报告中发送特定的页面。
提前谢谢。
Dim olApp As Object
Dim olItem As Variant
Dim rec As Recordset
Dim db As Database
Dim fileName As String, todayDate As String
Set db = CurrentDb
todayDate = Format(Date, &#
浏览 1提问于2019-09-05得票数 0
回答已采纳
3回答
多个MS Access数据库+ Outlook (VBA)在计划任务运行期间挂起
vba、ms-access、outlook、scheduled-tasks
我创建了多个MS数据库，这些数据库连接到公司的SQL服务器(MSSQL)，执行计算，然后以电子邮件的形式导出结果。这些设置是为了在一天中的某个时间通过windows任务调度程序运行。在您问之前，我没有对SQL服务器的访问权限，因此我不能创建任何存储过程，也不能执行除读取之外的任何其他操作。这些程序运行在桌面计算机上，在我的办公桌下，这是100%的时间(每周重新启动除外)。
我的问题是在MS访问中使用VBA来实际发送电子邮件。所有的SQL和excel格式化工作都是按照预期进行的，但在电子邮件离开我的发件箱之前，我遇到了关闭Outlook的访问问题。试图让访问，等待或睡觉，直到电子邮件已经发送，正
浏览 1提问于2016-08-29得票数 3
1回答
将会议从全天事件更改为非全天事件
vba、outlook
我将会议发送给两个收件人，并让会议按预期显示。
如何按日期和时间查找会议(与发送时相同)，并将其从全天事件更改为非全天事件？
Sub Appointment()
Dim olApt As AppointmentItem
Set olApp = Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt
.Start = #3/10/2017 4:00:00 PM#
.End = #3/3/1017 5:00:00 PM#
浏览 0提问于2017-03-09得票数 1
1回答
VBA Excel to Outlook (2010) -只使用唯一日期创建日期列中的约会
vba、excel、outlook、excel-2010、outlook-2010
信息： MS Office 2010
问题：多个Outlook配置文件和多个日历&重复同一日期-我只想要唯一的
出发地： Excel 2010
To: Outlook 2010
问题
我想要创建一个从Excel运行到Outlook的VBA。我想要根据我的工作表中的日期列创建约会(如果它被证明更合适的话)。
核心问题是：
我有3个不同的配置文件，我只希望约会/任务显示在1配置文件(管理)。
我有不同的日历，我希望约会是默认的。
我想添加类别到我的约会/任务+我有10,000行数据，日期重复(很多)，我只想要唯一的日期。
我不希望有先前的日期来创建约
浏览 1提问于2014-01-01得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
