Tag: outlook

从outlook收到电子邮件date。 单元格中信息格式和search的问题

Sub ReceivedEmailDate() Dim outlookApp Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim myTasks Dim sir() As String Set outlookApp = CreateObject("Outlook.Application") Set olNs = outlookApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items i = 2 'This is the row you want the date/time to start from For Each olMail […]

如何在由Excelmacros生成的电子邮件中发送非http超链接？

我使用Excelmacros来发送电子邮件，内容保存在单元格中。 我需要发送一个非http链接，看起来像这样 elodms://后面跟一个ID 我假设outlook不知道这种链接forms，并且在发送电子邮件时不会将其显示为可点击的链接，就像插入电子邮件地址时一样。 是否有可能强制Outlook将其视为超链接？ 而且可以通过VBA Excelmacros来完成吗？

VBA不会将更改保存到使用.Display显示的Outlook模板中

我正在致力于生成OFT文件，这些文件将通过电子邮件发送给客户，客户将填写“收件人：”和“主题：”并将其作为电子邮件发送给客户。 我的数据来自Excel工作簿，其中一张工作表中包含静态数据（书籍）和用户粘贴的其他信息（引脚）。 我有一个基本的模板，占位符文本被上述Excel工作表中的数据所取代。 其中一个重要的部分是我需要修改后的模板保存到自己的文件中，以便以后可以保存以供参考。 最初我有以下代码设置打开模板，并调用.SaveAs myFilename，olTemplate，但只是一个破碎的3KB文件。 你会注意到我正在将模板复制到实际的目标文件，并在其上进行操作。 我的问题是，如果我有模板项目调用.Display，一切都是完美的。 我在正确的地方看到了我的形象，所有的文字都被正确地replace了。 如果我打电话，请保存一份原始OFT模板的副本，不要有任何更改。 有谁能告诉我我在做什么错在这里？ 我一直在这里search和谷歌几个小时试图find我失踪的一些迹象。 我试图尽可能自动化这个东西。 用Outlook的UI重新设置新的OFT对于同事来说是一个真正的时间，如果可能的话，我想消除这个问题。 他们每天会产生几十个这样的OFT，所以我认为这个工作似乎值得。 更新我已经设法得到这个工作，但解决scheme感觉像是一个半答案。 下面的代码已更新，正确保存OFT的更改。 这是我的sub： Sub OutlookTemplate(ByVal pins As Range, ByVal book As Range, ByVal ImageLocation As String) Dim myolapp As Object Dim myItem As Object Set myolapp = CreateObject("Outlook.Application") 'myolapp.Session.Logon For Each p In pins.Cells If Not IsEmpty(p.Value) Then Dim myFilename […]

如何使用VBA将Excel数据粘贴到Outlook中？

我有一个Excel工作表，其中包含a1:q38中的数据，我需要将其粘贴到Outlook电子邮件的BODY中。 任何想法如何做到这一点，而不是保存为JPG或PNG图像？

VBA：复制并粘贴电子邮件中的单元格，而不会丢失格式

我希望能够发送包含Excel电子表格单元格的电子邮件。 目前我有下面的代码插入我想要的电子邮件的范围，但我遇到的问题是，它删除了大部分的格式，例如字体的改变和一些条件格式被删除。 Sub EmailExtract() Dim objOutlook As Object Dim objMail As Object Dim TempFilePath As String Dim Location As String Dim Individual As String Dim rng As Range Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Worksheets("Contacts").Activate Range("A2").Select While ActiveCell <> "" ActiveCell.Offset(1, 0).Select Location = ActiveCell.Address Individual = ActiveCell.Value Worksheets("Individual Output 2").Activate Range("C2").Value = […]

从Excel中发送Outlook电子邮件，并在打开电子表格时添加到行号的电子邮件中的超链接

我有一个Excel电子表格，使用vba发送一封电子邮件： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "This is email text, click the link <a href='C:\test.xlsm & Range("F" & ActiveCell.Row).Address'></a>" On Error Resume Next With OutMail .To = "####" .CC = "" .BCC = "" .Subject = "Sales Tracker: A New Task has been added to the tracker" .HTMLBody = strbody […]

给予优秀的前景控制

我试图编写一个简单的程序来自动发送来自Excel中的列表的电子邮件，它的工作原理，但Outlook不断打开popup窗口要求权限。 你如何得到前景不再要求许可，只要做好excel告诉它没有popup窗口 下面是我到目前为止的代码： Sub SendMessage() Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim recemail Dim i As Integer i = 1 recemail = Sheet1.Cells(i, 1) ' Create the Outlook session. Set objOutlook = CreateObject("Outlook.Application") ' Create the message. Set objOutlookMsg = objOutlook.CreateItem(olMailItem) With objOutlookMsg ' Add […]

尝试从Excel用户窗体发送电子邮件时出现“参数types不匹配”错误

我在我的一般定义中有这个集合 – Public Sub Mail_Outlook_With_Signature_Plain(strbody As String) Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail 'Send to Manager email entry when ready to go live .To = "" .CC = "" .BCC = "" .Subject = "There was an error/best practice […]

使用VBA将其从Outlook导入到Excel时，是否可以从电子邮件正文中删除签名？

我想知道是否有可能从电子邮件正文删除签名时，将该电子邮件导入到Excel中？ 我尝试了Tony Dallimore提出的这个早期发布的主题的解决scheme，将Outlook中的电子邮件导入到excel中。

发送带有附件和签名的Outlook电子邮件

我需要发送附件和签名的Outlook电子邮件。 以下是我的VBA代码。 我收到错误“Transport failedtoconnect server”。 看来，我没有给一个正确的SMTP服务器地址。 此外，我需要写公司标志签名。 Sub Outlook() Dim Mail_Object As Object Dim Config As Object Dim SMTP_Config As Variant Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Body As String Dim Current_date As Date Current_date = DateValue(Now) Email_Subject = "Daily Pending IMs Report (" & Current_date & ")" Email_Send_From = "report@xxxx.ae" Email_Send_To = "yyyyyy@gmail.com" 'Email_Cc = […]