Tag: outlook

从发件人帐户获取电子邮件地址

有没有办法从已login的Outlook帐户“读取”用户电子邮件地址，并在激活此macros时发送电子邮件？ Sub MailSenden() Dim olApp As Object Dim olOldBody As String Rem Email erstellen Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .GetInspector.Display olOldBody = .htmlBody .To = "carsten.asdf@xxx.yy" .Subject = "Testformular" .Body = "Das ist eine e-Mail" & Chr(13) & _ "Viele Grüße…" & Chr(13) & Chr(13) .Attachments.Add "C:\Users\" & Environ$("USERNAME") & "\Desktop\" & "CSV-Export.csv" .Attachments.Add […]

从Excel 2016到Outlook 2016的复制粘贴范围如图所示

我正尝试使用VBA将Excel范围粘贴到Outlook电子邮件正文中。 但是，每当我这样做，粘贴操作的范围被切断。 原始的范围如下所示： 粘贴出现如下： 我基本上使用了Jean-FrançoisCorbett的VBA代码， 将Excel的范围粘贴到电子邮件中作为照片 。 即： Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject(Class:="Outlook.Application") Set objMail = objOutlook.CreateItem(0) 'Copy range of interest Dim r As Range Set r = Range("B2:E14") r.Copy 'Paste as picture in sheet and cut immediately Dim p As Picture Set p = ActiveSheet.Pictures.Paste p.Cut 'Get […]

从Excel文件发送多个收件人的Outlook电子邮件

我目前正在做一个VBAmacros，将发送一个单一的Outlook电子邮件，具有以下标准： 答：收件人被列在Sheet1的D列中，我想要的是将每个发件人连接到Outlook的TO字段。 但是，这些收件人是dynamic的，可能在数量上有所不同。 案例可能会导致从这些列中增加或减less电子邮件地址。 B.我需要将任何Sheet2的内容粘贴到Outlook的BODY字段中。 C.我需要生成带有签名的电子邮件。 到目前为止，我有这个代码，但它不工作： Option Explicit Sub SendEmail() Dim OutlookApplication As Outlook.Application Dim OutlookMailItem As Outlook.MailItem Dim outlookInspector As Outlook.Inspector Dim wdDoc As Word.Document Dim Recipient As Range Dim CC As Range Application.ScreenUpdating = False Set OutlookApplication = New Outlook.Application Set OutlookMailItem = OutlookApplication.CreateItem(0) 'On Error GoTo cleanup Workbooks("ConfigFile.xlsm").Sheets("Sheet1").Activate Range("D2").Select Set Recipient […]

Excel中的电子邮件正文中的embedded式图表VBA

我有一个工作表与图表，我想发送他们在电子邮件正文。 我的代码工作，但我想调整图表，因为他们太大。 第三个图表显示正确，但我没有看到第一和第二个图表。 他们只是空白。 Sub Send_charts() Dim OutApp As Object Dim OutMail As Object Dim ChartName1, ChartName2, ChartName3, Filename As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) ChartName1 = Environ$("temp") & "\Chart1.gif" ActiveWorkbook.Worksheets("Sheet1").ChartObjects("Chart 1").Chart.Export _ Filename:=ChartName1, FilterName:="GIF" ChartName2 = Environ$("temp") & "\Chart2.gif" ActiveWorkbook.Worksheets("Sheet1").ChartObjects("Chart 2").Chart.Export _ Filename:=ChartName2, FilterName:="GIF" ChartName3 = Environ$("temp") & "\Chart3.gif" ActiveWorkbook.Worksheets("Sheet1").ChartObjects("Chart […]

从R发送邮件时的特殊字符

我目前的任务是向工作中的某些个案工作人员发送电子邮件。 我正在给一个Excel工作表的数据。 这些数据包含个案工作人员的电子邮件以及案件号码和说明。 我用来撰写电子邮件。 我已经创build了一个在R中导入这些数据的脚本，并且通过一系列if / else语句（来sorting要发送到哪个等等）来运行它。 我使用RDCOM包从R发送电子邮件，它工作正常。 library(RDCOMClient) OutApp <- COMCreate("Outlook.Application") outMail = OutApp$CreateItem(0) outMail[["To"]] = "some@mail.dk" outMail[["subject"]] = "some subject" outMail[["body"]] = "some body" outMail$Send() 有关从R发送电子邮件的更多信息，请参阅通过Outlook在R中发送电子邮件。 我以丹麦语工作，因此在我的邮件正文中有"æ" ， "ø"和"å"等特殊字符，有时在Excel数据中也有描述。 每当描述不包含任何特殊字符时，即使我在主体中有特殊字符，我也能够毫无问题地发送我的邮件。 但是，只要描述中包含特殊字符，我就完全搞砸了整个邮件。 为了避免这个问题的出现，我首先用Excel工作表中的所有æ (ae) ， ø (oe) ， å (aa)来代替，但是希望find一个更合适的答案来平滑过程。 一个例子可能是： library(RDCOMClient) OutApp <- COMCreate("Outlook.Application") outMail = OutApp$CreateItem(0) outMail[["To"]] = "some@mail.dk" outMail[["subject"]] = paste("Case […]

基于每行匹配的收件人，按行创build具有附件的Excel电子邮件

不知道如何最好地标题这一点，但我有一个工作表，我通过每一行循环，并为每一行创build一个电子邮件。 附件基于分部名称。 目前，它为每一行创build一个电子邮件，所以如果Name下的一个人有8个分部，他们将收到8个电子邮件，每个电子邮件有不同的附件。 这是令人讨厌的人，所以我想现在有循环（也许是嵌套？），如果如果find相同的名称，然后创build一个电子邮件为该名称，连同他们所有的司报告。 为了方便起见，我设定了名单，以便将所有名称都归为一组。 在这个例子中，我希望它创build一个电子邮件到名称示例Sample1，附件的小工具和门把手。 其余的，他们每个人都会收到他们平时的一封电子邮件。 我已经尝试了几个小时来使这个工作，但没有足够的VBA知识，使这项工作。 我可以用Excel自己做公式，基本上说，如果A2 = A3，那就这样做。 但是我需要帮助才能在VBA中发生这种情况。 请看图片。 更新 ：我已经更新了下面的代码，我使用了Vityata显示的因子分解方法。 它运行，但创build每个电子邮件的欺骗。 Option Explicit Public Sub TestMe() Dim name As String Dim division As String Dim mail As String Dim dict As Object Dim dictKey As Variant Dim rngCell As Range Set dict = CreateObject("Scripting.Dictionary") For Each rngCell In Range("b2:b4") If […]

包含名称与收件人姓名相匹配的附件

我有Excel中的代码发送电子邮件到收件人列表： Sub SendEMail() 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 Set xRg = Application.InputBox("Please select the data range:", "Send […]

当Outlookclosures时，在VBA，Excel中通过MS-Outlook发送带附件的电子邮件

当我从附件发送邮件，真正的作品。 但是当我使用.Attachments.Add ActiveWorkbook.FullName参数时，它不会发送并等待打开Outlook。 我想在outlookclosures时发送邮件。 我使用下面的代码： Sub SendMail() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem(olMailItem) With OutlookMail .To = "address@domain.com" .CC = "" .BCC = "" .Subject = "M" .BodyFormat = olFormatHTML .HTMLBody = "Hi, <p> I'm sending this message from Excel using VBA.</p>Please find <strong> […]

我的自定义Outlook加载项导致Excel保存对话框隐藏自己

我已经创build了一个Outlook加载项，它将一个button添加到一个新的电子邮件窗口的function区，但是这会导致一个问题。 这是发生了什么事情： 用户有Outlook打开。 用户打开Excel。 用户通过文件 – >保存并发送 – >作为附件发送Excel文件给别人 用户对文档进行更改 用户尝试closures文档 这是当Outlook提示用户保存该文件，但对话框隐藏在Excel窗口后面，用户无法进入它，而不做一些恶意。 我的Outlook加载项还有许多其他的function，但是我已经把它固定到我创build的Ribbon.cs文件中，以便将button添加到新的电子邮件窗口。 当我从Micorosft.Outlook.Mail.Compose更改OfficeRibbon对象的RibbonType属性为空，保存对话框显示为它应该。 当我将其更改回“撰写”时，它会再次隐藏对话框。 有谁知道有什么办法呢？ 我已经确认这发生在项目是Outlook 2007加载项或Outlook 2010加载项时。 提前致谢。

Excel VBAmacros：创build一个Outlook日历事件

你可以从Excel中运行一个可以与Outlook交互的macros，并在日历上创build和事件吗？