Tag: outlook

将Excel文件保存为PDF格式，然后通过Outlook作为附件发送，但在邮件中没有签名

我有一些Excel VBA代码，将活动工作表保存为PDF，然后将该PDF文件附加到Outlook新邮件一切工作正常，除了在Outlook中的签名时，代码启动Outlook和新邮件它不显示签名，尽pipe它在HTML中，我可以已经手动插入。 所以任何调整的代码将不胜感激。 Sub Send_To_Pdf() Dim PdfPath As String Dim BoDy As String BoDy = Msg = "Dear Mr. " & vbCrLf & vbCrLf & "Good Day" & vbCrLf & vbCrLf & "Kindly find the attahched PO to be delivered to " & Cells(10, 12) PdfPath = Save_as_pdf EnvoiMail Right(PdfPath, InStr(1, StrReverse(PdfPath), "\") – 1), […]

VBA不能识别MAPI

我正在使用VBA进入一个Outlook文件夹，并将消息正文放入一个单元格。 但是 set ns = getnamespace("MAPI") 我收到一个错误“自动化错误库未注册”。 我select了以下与Outlook相关的参考（在Excel中）： Outlook 14.0对象库， Outlook SharePoint社交提供程序， Outlook社交提供商可扩展性， Outlook视图控件 我正在使用Excel 2010.整个代码如下。 任何帮助将不胜感激。 Dim ns As Namespace Dim inbox As Mapifolder Dim item As Object Dim atmt As Attachment Dim FileName As String Dim i As Integer Dim SubFolder As Mapifolder Dim SubSubFolder As Mapifolder Dim VariableName As Name Dim Working […]

通过电子邮件search以查找并突出显示文本

我正在用Excel的VBA试图自动发送一些电子邮件。 现在，代码会根据单击button旁边的单元格创build电子邮件，并将电子邮件转发到单元格中列出的电子邮件，然后根据更多单元格插入特定主体消息。 单元格中的内容并不重要，但我需要做的是search原始转发的特定文本消息，如果find，则需要突出显示该文本。 我的代码如下： Sub Asset_email() Dim olApp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Outlook.MailItem Dim i As Integer Dim olMsg As Outlook.MailItem Dim r As Range Dim strLocation As String Dim o As Outlook.Application Dim strbody As String 'Dim olAtt As Outlook.Attachments 'Set olAtt = olMsg.Attachments Set […]

删除电子邮件中某个string前后的文本（最多可达一个字）

我正在寻找创build一个VBAmacros（从Excel）search一个电子邮件与正文中的帐号，并删除该电子邮件中的所有其他表元素，除了我指定的元素的行。 例如，请参阅下面的附件。 假设我search的号码是“222222222222”号码。 我需要VBA代码来保留表头，删除所有不是“22222222222”（所有1111账户）的账户，同时也保持持有量。 是否有代码可以删除“2222222222”之后的所有文本，而是停止删除单词“Term”？ 在该标记上，可以在“截止date”一词之后开始删除，但在到达“222222 …”帐户时停止删除？ 请让我知道，如果有任何方法我可以专注于实现这一点。 谢谢！ （PS这些电子邮件的长度不一，其中很多是每天收到的，另外，我已经有了可以通过search文本来search和打开电子邮件的代码，我只是无法弄清楚如何删除这些无关的东西我不在寻找。） 我附上了我的相关代码来search并打开下面的电子邮件： Dim olApp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Outlook.MailItem Dim i As Integer Dim olMsg As Outlook.MailItem Dim r As Range Dim strLocation As String Dim o As Outlook.Application Dim strbody As String Dim objInspector As Object […]

通过Excell发送电子邮件

我已经被赋予了创build一个电子表格，将采取一些手机logging信息的任务。 我们有每天运行的报告，以查看每部手机的数据使用情况（它们以CSV格式导出）。 我们需要一种方法来根据单元格值是否为true来自动发送电子邮件（通过电子邮件发送短信）。 目前电子表格是这样的（Cell由||表示） |无线号码| USER_NAME | 记帐周期date| 成本中心| Data_Usage | 90％| 100 | 电子邮件地址| 90％的信息| 100％信息| 我正在寻找一些VBA代码，当通过button或键盘快捷方式调用marco时，将运行该代码，该代码将接收电子邮件地址并发送数据使用单元格的90％100％的消息。 任何build议将是很好的。

Excel VBA – 发送Outlook电子邮件

在单元格AI有名字，例如约翰·史密斯 在Cell BI中有一个标准 – 到期/未到期。 我需要以某种方式修改下面的代码来执行以下操作： 从单元格A生成电子邮件，格式为john.smith@company.com，然后发送提醒电子邮件，但只发送到一封电子邮件中的唯一电子邮件。 到目前为止，这是我的： Sub SendEmail() Dim OutlookApp As Outlook.Application Dim MItem As Outlook.MailItem Dim cell As Range Dim Subj As String Dim EmailAddr As String Dim Recipient As String Dim Msg As String 'Create Outlook object Set OutlookApp = New Outlook.Application 'Loop through the rows For Each cell In Columns("A").Cells.SpecialCells(xlCellTypeVisible) […]

如何将复制的对象粘贴到Excel中的特定单元格

我已经写了下面的代码从Outlook EMail复制一个表： Set objApp = GetObject(Class:="Outlook.Application") Set objDoc = objApp.ActiveInspector.WordEditor objDoc.Tables(1).Range.Copy 我知道我们可以粘贴这个复制objDoc（这是一个对象）使用行： excWkSht.Paste这是随机粘贴在Excel表。 我试图粘贴这个在第一个单元格使用： excWkSht.Cell(1, 1).Range.Paste但它会抛出错误 “运行时错误'438'：对象不支持此属性或方法” 有人可以帮我解决这个错误吗？

部署到办公室只有桌面插件

我有用C＃编写的用于桌面Outlook的插件。 是否可以将其部署到Office商店？ 我已阅读此手册https://dev.office.com/docs/add-ins/overview/requirements-for-running-office-add-ins ，但没有发现有关桌面Office插件的任何有用信息。

VBA截取网页截图，将其保存为文件并附加到新的电子邮件中

我是VBA领域的新手。 但是我发现了一些有希望的 如何使用vba截图网页 它提供了一个打开IE后如何截图的想法。 但它并没有告诉如何将其保存在本地机器上，并将其附加到新的电子邮件。 我怎么做？ 编辑 – 现在，我使用selenium并运行一个shell脚本从VBA执行selenium脚本来存储它。 但是这样会更好

用数据预先确定要发送电子邮件的单元格

我发现下面的代码。 代码要求select数据的范围并发送电子邮件。 我试图预先确定这些细胞，但我无法弄清楚。 例 这是我的表格，我不想每次运行代码时都select这些单元格，而是希望将代码从单元格A2：C6中取出 代码： Sub SendEMail() 'update by Extendoffice 20160506 Dim xEmail As String Dim xSubj As String Dim xMsg As String Dim xURL As String Dim i As Integer Dim k As Double Dim xCell As Range Dim xRg As Range Dim xTxt As String On Error Resume Next xTxt = ActiveWindow.RangeSelection.Address […]