我正在尝试在Excel表单上设置几个按钮,以便向不同的人群发送电子邮件。
我在一个单独的工作表上设置了几个单元格区域,以列出电子邮件地址。
例如,我希望“按钮A”打开Outlook,并将“工作表B:单元格D3-D6”中的电子邮件地址列表放入。然后,所有要做的就是在Outlook中点击“发送”。
Sub Mail_workbook_Outlook_1()
'Working in 2000-2010
'This example send the last saved version of the Activeworkbook
Dim OutApp As O
我正在尝试使用python中的win32包从Outlook2013中提取发件人的电子邮件地址。“我的收件箱”中有两种电子邮件地址类型: exchange和smtp。如果我尝试打印Exchange类型的发件人的电子邮件地址,则会得到以下结果:
/O=EXCHANGELABS/OU=EXCHANGE ADMINISTRATIVE GROUP(FYDIBOHF23SPDLT)/CN=RECIPIENTS/CN=6F467C825619482293F429C0BDE6F1DB-
我已经检查过这个,但是找不到一个可以提取smtp地址的函数。
下面是我的代码:
from win32com.client i
我需要群发电子邮件与一个网址链接到每个收件人的问卷,他们必须填写。
这或多或少就是代码。我收到
运行时错误"'91‘对象变量或块未设置“。
一些关于Omail的东西没有被设置,但是它已经被设置了。
Sub test()
Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
这是拉出一个按钮的代码:
Sub a()
Dim btn As Button
Application.ScreenUpdating = False
ActiveSheet.Buttons.Delete
Dim t As Range
For i = 1 To 3
Set t = ActiveSheet.Range(Cells(i, 3), Cells(i, 3))
Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)