Tag: 电子邮件

Webform在Excel中，而不是电子邮件: 我的一个客户问我是否可以find解决这个问题的方法。他的网站（仍然是WIP） http://welkommagazine.nl/luuk/有一个表格。该表格显然使用sendmail脚本将表单发送到电子邮件。从那里他手动复制/粘贴所有提交excel。他想要的是在线自动化的forms被添加到一个Excel文件，以节省他很多工作。现在我不是一个程序员，而是一个devise师..我认为这可以做到，但我绝对不知道如何。我GOOGLE了很多，唯一的我发现是一个dreamweaverplugin。有没有办法做到这一点，如果是这样，怎么办？

excel vba inputbox: 我有以下代码为Excel VBA，将通过电子邮件发送我的工作表中的地址范围。不过，我正在寻找也许使用一个input框来确定我想要发送电子邮件的范围。我碰到的麻烦是获得input成为函数mailid理解的值。有什么build议么？ Sub EmailActiveSheetWithOutlook2() Dim oApp, oMail As Object, _ tWB, cWB As Workbook, _ FileName, FilePath As String Application.ScreenUpdating = False 'Set email id here, it may be a range in case you have email id on your worksheet Sheets("Sheet1").Select mailId = Range("b4:b5").Value 'Write your email message body here , add […]

导入.msg格式的电子邮件信息（包括Subject，Sender，CC，Receiver，SentDate等）: 我是VBA的新手。如果有人能够为我的任务提供Excel或Outlook VBA脚本，我将不胜感激。任务相对简单。我有一个文件夹中有超过4000个.msg格式的文件（Outlook电子邮件）。我想提取某些电子邮件信息（Subject，Sender，CC，Receiver，SentDate）并将这些信息导入到excel单元格中，例如： Subject Sender CC Receiver SentTime SentDate Re:.. Mike Jane Tom 12:00:00 23 Jan 2013 我能想到的唯一方法就是逐个打开这些.msg文件，并将这些信息复制并粘贴到excel中。显然，考虑到大量的文件，这是不现实的。我已经看到了一些相关的VBA脚本，但不是我想要的。

Outlook VBA保存邮件附件，然后将附件数据复制到另一个Excel中，并通过邮件发送发送Excel: 我试图创build一个Outlook VBA代码来保存从一个特定的邮件到一个文件夹的附件，然后复制粘贴从另一个Excel中的附件中的数据。然后邮件第二个Excel的一些ID。我创build了一条规则，将传入的自动邮件移动到特定的邮件文件夹，然后将其附件保存到桌面文件夹。保存附件后，数据被复制到第二个Excel文件夹中。代码是这样的 Public Sub ExportFile(MyMail As MailItem) Dim outNS As Outlook.NameSpace Dim outFolder As Outlook.MAPIFolder Dim outNewMail As Outlook.MailItem Dim strDir As String Set outNS = GetNamespace("MAPI") Set outFolder = outNS.GetDefaultFolder(olFolderInbox).Folders("Network Critical Report") Set outNewMail = outFolder.Items.GetLast strDir = "C:\Users\soumyajitd\Desktop\December\Network Critical Report\" If outNewMail.Attachments.count = 0 Then GoTo Err outNewMail.Attachments(1).SaveAsFile strDir & "Network_Critical_Report.csv" […]

vba + Selection.Paste into outlook + control poition: 我正在做的是从Excel复制一个图表到一个Outlook电子邮件，但经过无数的search，我挣扎。我无法定位粘贴图表的位置。我希望它在电子邮件正文的最后一行"this is another line again "后粘贴。它目前粘贴在电子邮件开始之前的行"test … body" Sub CopyAndPasteToMailBody3() ' this works but how do i control where it puts the chart? Set mailApp = CreateObject("Outlook.Application") Set mail = mailApp.CreateItem(olMailItem) mail.Display mail.To = "A@a.com" mail.subject = "subject" & Now mail.body = "test … body" & vbNewLine & vbNewLine _ & "this […]

可以在Outlook中读取电子邮件并将某些数据导出到Excel表格中吗？: 好。我编辑了这个问题，看看你是否能看到我犯了一个错误。这是电子邮件。除了Job1之后，它总是会以这种结构出现。可能还有六条线。但我会在稍后处理。这里是电子邮件：电子邮件主题：“属性报告” （不属于电子邮件正文部分，第一行是名称：段落之间没有空行）名称：地理。开始时间：03: 10 PM 10-Aug-2014 结束时间：03:11 PM 10-Aug-2014 物业： 48大西洋closures 完整的清单：没有呼唤：是的圣人n°： 16 完成的工作：作业1。工作1 之后，可能会有更多（job2，job3等），但我会在稍后处理 *项目：。价格：0£。库存：0£。 *项目：。价格：0£。库存：0£。 *项目：。价格：0£。库存：0£。 *项目：。价格：0£。库存：0£。 *项目：。价格：0£。库存：0£。 *项目：。价格：0£。库存：0£。所有的粗体字段都是我需要导入到excel文件的字段。 date到列A，名称到列B，鼠尾到列D，完整的清单列F和作业完成列G.这是你给我的VBA代码，我试图编辑它是这样的： Sub Application_NewMailEx(ByVal EntryIDCollection As String) […]

用于生成电子邮件的Excelmacros只在IDE打开时才起作用: 我已经找了几个星期的答案，这让我疯狂：我有一个macros将特定的单元格复制到Outlook中的新电子邮件。如果IDE是开放的，它可以完美工作，但通常情况下，如果不是，则将内容粘贴到当前表单中而不是新的电子邮件中。即使更奇怪的是，有时它会工作，而IDE是closures的，但99％的时间不会，这使得这是一个噩梦来诊断。这让我疯狂，你们是我唯一的希望！ Sub EmailReports() Dim rngSubject As Range Dim rngTo As Range Dim rngBody As Range Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) xRow = ActiveCell.Row RMName = Sheets("Dashboard").Range("B" & xRow) LastTaskRow = Sheets(RMName).Range("A1") With Target Range("E" & xRow) = Format(Now(), "MM/DD/YYYY") End […]

用VBA脚本提取电子邮件元数据: 我有一个文件夹充满了自定义消息类（iXOS档案，与OpenText企业档案相关）的电子邮件。每个电子邮件都有一个自定义元数据属性，在Outlook中可见，称为“文档标识符”。我试图使用VBA脚本从电子邮件中提取此信息。我发现了一个脚本，从电子邮件中提取常用元数据（To，From，Subject等），并将其写入Excel。这很好。 http://spreadsheetpage.com/index.php/tip/getting_a_list_of_file_names_using_vba/ 我试过debugging脚本并查看电子邮件属性，但找不到包含自定义元数据的任何集合。有谁知道我可以通过VBA脚本访问自定义元数据？

从VBA发送电子邮件：将数组数据格式化为列: 我正在VBA中做一些编码，而且对于这一切来说都很新颖。我想发送一个电子邮件使用存储在二维数组中的信息。目前，我只是发送： Mr ABCD: 123456 Mr EFGHIJ: 789101112 etc… 其中Array（0,0）= Mr ABCD，Array（0,1）= 123456，在格式不好的情况下，它非常难看。我想使它看起来更具可读性，首先确保所有的数值都在相同的偏移量上，即： Mr ABCD: 123456 Mr EFGHIJ: 789101112 etc… 我试图简单地使用适当的空格缓冲每个名称string，但是默认字体没有等效大小的字符，所以每个string可能长度相同，但大小不一样。那么，有什么办法可以设置string对象的默认字体为Courier为例，确保所有字符的大小相同？优选地，这将在不将数组复制到电子表格的情况下完成。另一个问题是，我怎样才能最好地把它制作成与电子表格一样的网格格式的电子邮件，每个网格的大小是一致的？再一次，最好不要复制到电子表格中。谢谢！

将电子邮件从Outlook子文件夹导出到Excel: 我发现了一个VBAmacros，它从Outlook接收电子邮件并将它们放入Excel中的单元格中。代码工作，但我想只告诉Excel从特定的子文件夹中获取电子邮件。在我的收件箱文件夹，我有一个名为信息的子文件夹。我希望能够从这个子文件夹中获得电子邮件。这是我现在的代码： Sub Download_Outlook_Mail_To_Excel() 'Add Tools->References->"Microsoft Outlook nn.n Object Library" 'nn.n varies as per our Outlook Installation Dim folders As Outlook.folders Dim folder As Outlook.MAPIFolder Dim iRow As Integer Dim Pst_Folder_Name Dim MailboxName 'Mailbox or PST Main Folder Name (As how it is displayed in your Outlook Session) MailboxName = "My email […]