Tag: 电子邮件

扫描电子邮件的非默认Outlook收件箱？: 我正在使用以下vba代码，检查具有特定主题标题的任何电子邮件。问题是它检查我的默认outlook收件箱文件夹，当我需要它来检查我的其他电子邮件帐户的收件箱NewSuppliers@Hewden.co.uk 有人可以告诉我如何做到这一点？提前致谢 Sub Macro1() Set olApp = CreateObject("Outlook.Application") Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim myItem As Outlook.MailItem Dim myAttachment As Outlook.Attachment Dim I As Long Dim olMail As Variant Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) Set myTasks = Fldr.Items Set olMail = myTasks.Find("[Subject] […]

将值分配给html表时保持与单元格的换行符: 我正在生成一个HTML电子邮件，其中包含一个基于标志值的Excel工作表中的某些值的表。我遇到的问题是一些单元格中包含换行符，例如：在单元格B5中，用户input了： Red Blue Green 每个单词之间有一个空行。我在用 <html> <table> <tr> <td>Cells(5,2).Value</td> </tr> </table> </html> 这返回： red blue green 在表格单元格内的一行中。我想要的是在一个表格单元格中包装3行的文本： red blue green 同一行中的其他单元格可能只包含一个值，因此添加额外的行并不是真正的解决scheme。在给电子邮件中的html表分配值时，如何保留最初input到单元格中的换行符？

Rails 4/5发送Dynamic ActionMailer :: Base.mail电子邮件带有标记为Noname的附件: 我看过类似的post，主要是通过创build视图和控制器来发送附件，例如：电子邮件中的PDF附件被称为“Noname” 但我有一个进程在后台dynamic生成文件，并需要使用ActionMailer :: Base.mail将其附加到收件人列表。以下是代码： def send_email(connection) email = ActionMailer::Base.mail(to: connection['to'], from: connection['from'], subject: 'Sample File', body: "<p>Hello,</p><p>Your data is ready</p>", content_type: 'multipart/mixed') email.cc = connection['cc'] if connection['cc'].present? email.bcc = connection['bcc'] if connection['bcc'].present? @files.each do |file| report_file_name = "#{@start_time.strftime('%Y%M%dT%I%m%s')}_#{file[0]}.xlsx" file_location = "#{Rails.root}/tmp/#{report_file_name}" email.attachments[report_file_name] = File.open(file_location, 'rb'){|f| f.read} end email.deliver if email end 我可以在日志中看到它正在发送的内容，但假设它发送为Noname，因为它无法find视图。任何方式来获得这个成功的工作？ […]

在同一个Outlook对话下使用VBA发送电子邮件: 我正在使用基本的VBA代码每天发送一份电子邮件和我的电子表格副本。邮件主题总是一样的。我希望这些电子邮件在Outlook中显示为相同的对话，以便在使用“对话”视图时将它们嵌套/线程化。但是，这些电子邮件总是作为一个新的对话来形成。如何在OutMailvariables中设置一个类似于.subject等的属性来创build我自己的始终相同的ConversationID / ConversationIndex，以便电子邮件显示为嵌套？ VBA代码： Dim Source As Range 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long Dim OutApp As Object Dim OutMail As Object Set Source = Nothing On Error Resume […]

在Haskell中使用简单邮件抛出损坏的pipe道错误: 我有一年前写过的Haskell程序，运行良好，直到几个月前。什么改变了？该程序使用SpreadsheetML（我是贡献者）构build一系列Excel报告文件，并以附件的forms通过电子邮件发送给用户列表。该程序由逗号分隔的文本文件控制，每行代表一个报告，并包含报告标题，数据库关键字列表（用|分隔）以及收件人电子邮件地址列表（也用|分隔）。三个月前，这个文件进行了重组，以改变生成的报告和分发给谁。从那以后，文件中的一行将会破坏pipe道错误的程序。该程序的错误信息是： CreateExcel: fd:7: hPutBuf: resource vanished (Broken pipe) 该程序接受一个命令行参数来控制是否发送报告。如果此参数为False，则不会调用sendReport方法（以下），也不会报告错误。因此，我相信在sendReport调用之前的一切都是可靠的。这是产生错误的代码： makeAddress :: String -> Address makeAddress addr = Address Nothing (T.pack addr) sendReport :: String -> [String] -> String -> IO () sendReport file to title = do simplemail <- simpleMail (Address Nothing (T.pack "")) (Address Nothing […]

Python发送与TITUS分类的Outlook电子邮件: 我需要使用python发送电子邮件，并绕过当前脚本提供的TITUS CLASSIFICATIONpopup窗口。 popup窗口阻止它自动发送。 python olMailItem = 0x0 obj = win32com.client.Dispatch("Outlook.Application") newMail = obj.CreateItem(olMailItem) newMail.Subject = "My Subject" newMail.Body = "My Body" newMail.To = "myemail@gmail.com" newMail.send() VBA 我有一个自动发送电子邮件的VBA解决scheme，但是在PYTHON脚本中包含所有内容，而不是创build一个VBAmacros并调用它，会更容易，更直观。 Dim AOMSOutlook As Object Dim AOMailMsg As Object Set AOMSOutlook = CreateObject("Outlook.Application") Dim objUserProperty As Object Dim OStrTITUS As String Dim lStrInternal As String Set AOMailMsg = AOMSOutlook.CreateItem(0) […]

从excel / vba生成电子邮件到Outlook时，我的电子邮件签名不会显示？: 嗨，我使用了Ron De Bruin的精彩网站来创buildVBA代码，它可以从excel文件中生成一封电子邮件给特定的用户。唯一的问题是，我的签名不会出现在每封电子邮件，我似乎无法find如何将其添加到代码中？任何人都可以build议吗？正如你可以告诉我是一个完整的新手！第一单元 Option Explicit Sub Send_Row_Or_Rows_2() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim Ash As Worksheet Dim Cws As Worksheet Dim Rcount As Long Dim Rnum As Long Dim FilterRange As Range Dim FieldNum As Integer Dim strbody As String On Error GoTo cleanup […]

尝试使用Excel VBA打开Outlook电子邮件模板: 我正在尝试使用Excel打开Outlook 2010电子邮件模板。我得到以下错误： “运行时错误”-2147287038（80030002）：无法打开文件：C：\ My \ Path \ MyTemplate.oft文件可能不存在，您可能没有权限打开它，也可能打开另一个文件右键单击包含该文件的文件夹，然后单击“属性”以检查文件夹的权限。该文件存在（在正确的地方），我已经检查了权限（据我所知），并且该文件尚未打开。这是我的代码： Sub Mail_experiment() Dim OutApp As Outlook.Application Dim OutMail As Outlook.mailitem Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft") On Error Resume Next With OutMail .to = "myEmail@aol.com" .CC = "" .BCC = "" .Subject = "This is my Subject line" .Send End With On […]

用VBA中的表格生成完全格式化的电子邮件: 我有几个信息的工作。 Outlook电子邮件模板带有一个自动化的消息和3个“插入点”，我需要一个整齐的格式化的表，包含超链接给我注入并发送到保存的分发列表。一张Excel电子表格，带有3张表格，自动更新所有需要在表格中的信息（但不包含超链接）。 3个已过滤的Sharepoint列表，其中包含需要在表中的所有信息，并包含所需的超链接。无论如何，我需要做一个简单的（比打开文件和复制和粘贴更容易）的方法自动生成一个格式化的电子邮件与所有上面列出的信息。我是一名实习生，所以这是对我的能力的一种考验，而不是个人的节省时间，所以偏离要求并不是真正的select。到目前为止，我的老板正在打开电子邮件模板，然后逐个打开Sharepoint列表，单击并拖动select，并单独复制和粘贴每个列表。所以让我先从我尝试过的方法开始，然后继续前进到墙壁上。所以我第一次尝试在源Excel文件中工作，并生成一个电子邮件，因为我已经做了一些这样简单的自动化之前。 Sub GenerateEmail() Const template As String = "–The path to the email template goes here–It works but I removed it for this post" MakeEmail (template) End Sub Sub MakeEmail(templatePath As String) 'Not currently working but I'm not as concerned for it at the moment 'I havent […]

使用VBA从Excel表格发送多个附件: 我有现有的代码发送邮件从我的Excel文件中的工作表 – Sub CreateMail() Dim objOutlook As Object Dim objMail As Object Dim rngTo As Range Dim rngSubject As Range Dim rngBody As Range Dim rngAttach As Range Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Application.ScreenUpdating = False Worksheets("Mail List").Activate With ActiveSheet Set rngTo = .Range("B1") Set rngSubject = .Range("B2") Set rngBody = .Range("B3") […]