Tag: 电子邮件

如何在Excel VBA中添加CC与Lotus Notes电子邮件

我有一个macros从Excel VBA自动发送电子邮件到收件人，我有不同的列在我的Excel文件，如“收件人的电子邮件地址”和“cc”，我的macros将从工作表检索数据，然后相应的格式。 现在我需要添加一个带有两个电子邮件地址的“CC”字段到我的电子邮件格式，我不知道如何做到这一点，任何人都可以帮我吗？ 以下是我的工作表的样子： 以下是macros的完整代码： Sub Send_Unformatted_Rangedata(i As Integer) Dim noSession As Object, noDatabase As Object, noDocument As Object Dim vaRecipient As Variant Dim rnBody As Range Dim Data As DataObject Dim rngGen As Range Dim rngApp As Range Dim rngspc As Range y: Dim stSubject As String stSubject = "Change Request " + (Sheets("Summary").Cells(i, […]

发送Outlook电子邮件（包括variables和字体更改）？

我有VBA代码，用于发送带有variables的Outlook电子邮件，或者发送带有字体更改（粗体，字体等）的Outlook电子邮件，但不能同时包含variables和字体更改。 这将发出“你好”：variables=“有”OutMail.Body =“嗨”variables 这将发出“嗨那里”你好大胆，没有大胆的（忽略左胡萝卜后的空间）：Outmail.HTMLBody =“<b>嗨</ b>那里” 我想用一个variables发送出去，但是没有成功。 我先试了一下，但发出“嗨”的粗体，但忽略了variables。 variables=“那里”Outmail.HTMLBody =“<b>嗨</ b>”＆variables 这里是完整的代码： Dim OutApp As Object, OutMail As Object, plan_day As Date, comp_tsk As String 'define EmailAddress, CCAddress, EmailSubject plan_day = "06/02/2015" comp_tsk = "there" EmailBody = "< b>Today is " & plan_day & ".< /b> Hello " & comp_tsk Set OutMail = OutApp.CreateItem(0) With […]

VBA：在非默认Outlook收件箱中search电子邮件？

我正在使用下面的VBA代码，检查任何具有特定主题标题的电子邮件。 问题是它检查我的默认Outlook收件箱文件夹，当我需要它来检查我的其他电子邮件帐户的收件箱。 有人可以告诉我如何做到这一点？ 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] = […]

在ASP.Net中发送邮件，并使用Excel附件连接到SQL Server

我有两个表A和B，A有两列“名称”和“电子邮件地址”，B有很多列和行，一列有名称，所以这两个表之间的关系是“名称”，因此对于1表A中的名称将在表B中有几行。 我想要实现的是，我需要一个邮件被触发到表A中的每个名字，并附上一个Excel文件，它将包含表B中的相应人员数据。考虑表A有100个“名称”，然后是100邮件应该被触发到相应的电子邮件地址，每封邮件都带有相应的Excel附件，其中包含表B中相应的“名称”数据。 例如：表A有BOB和MIKE Bob将收到一封带有Excel附件的邮件，该邮件将显示表B中的所有BOB数据.Mike将收到一封邮件，附件中的数据在表B中。 附件甚至可以显示为邮件中的表格，因为不会有超过25行的数据。 我已经在Outlook中的VBA中工作，它将创build一个Excel文件并将其存储在一个文件夹中，获取邮件模板，将Excel附加到邮件中，并将其放在邮箱的发件箱中，以便在生成所有100封邮件时，邮件开始被触发。 现在我正在尝试在ASP.Net中实现相同的function，然后将其自动化，以便在特定date的特定时间执行。 下面是我使用相同的VBA代码。 Sub testing() Dim OutApp As Object Dim OutMail As Object Dim i As Integer Dim conn As New ADODB.Connection Dim rec As New ADODB.Recordset Dim rec1 As New ADODB.Recordset Dim Email_ID As String Dim Table As String Email_ID = "" conn.Open "DSN=testing" Sql = "select name,EmailAddress from […]

VBA Excel：将电子表格的提取插入到Outlook电子邮件中

我想能够在Excel中运行一个macros，复制我的Excel电子表格的特定区域，打开一个新的电子邮件，并粘贴区域。到目前为止，我有以下代码： Sub Macro2() ' 'Macro2 Macro Dim objOutlook As Object Dim objMail As Object Dim TempFilePath As String Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Dim rng As Range 'Set rng = Selection.SpecialCells(xlCellTypeVisible) Set rng = ActiveSheet.Range("A4:E200").Rows.SpecialCells(xlCellTypeVisible) If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" […]

筛选基于主题的Outlook电子邮件，然后下载附件

我正在尝试执行以下操作： search未读的电子邮件 打开具有特定关键字的那些 从电子邮件下载附件（如果我也可以通过附件进行筛选，那将是非常好的） 将电子邮件标为已读。 这是我正在与之合作。 Sub DownloadAttachmentFirstUnreadEmail() Dim oOlAp As Object, oOlns As Object, oOlInb As Object Dim oOlItm As Object, oOlAtch As Object Dim strFilter As String '~~> New File Name for the attachment Dim NewFileName As String NewFileName = AttachmentPath & Format(Date, "DD-MM-YYYY") & "-" '~~> Get Outlook instance Set oOlAp = […]

VBA：如何解决发布到htm文件造成的缓慢问题？

我有一些代码，运行时，select一些单元格，删除这些单元格的条件格式，但保持格式，然后将这些单元格转换为HTM，以便他们可以通过电子邮件发送。 我遇到的问题是，将表格发布到htm文件的过程非常缓慢，我有很多电子邮件出来，有没有办法绕过这个缓慢？ 代码如下： Sub EmailExtract() Dim objOutlook As Object Dim objMail As Object Dim TempFilePath As String Dim Location As String Dim PrimaryNumber As String Dim rng As Range Dim PrimaryRecipients As String Dim SecondaryRecipients As String Dim To_Name As String Dim Region As String Worksheets("Contacts").Activate Range("A2").Select While ActiveCell <> "" Set objOutlook = CreateObject("Outlook.Application") […]

尝试通过SMTP发送电子表格时，“传输无法连接到服务器”

我正在尝试使用下面显示的代码通过SMTP发送Excel电子表格。 但是，每当我运行代码，我收到错误“传输失败连接到服务器” 。 这里是代码： Sub CommandButton_Click() Dim CDO_Mail_Object As Object Dim CDO_Config As Object Dim SMTP_Config As Variant Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String Email_Subject = "Trying to send email using CDO" Email_Send_From = "xxxxx@yahoo.com" Email_Send_To = "xxxxx@hotmail.com" Email_Cc = "" Email_Bcc = "" Email_Body = "Congratulations!!!! You have successfully sent an […]

Powershell电子邮件附件字符集

我正在处理这个问题。 我有csv文件，这是由PowerShell脚本parsing。 Powershell使用附件创build邮件并使用smtp服务器发送邮件。 问题是，当用户收到电子邮件，打开它，并想打开附件。 它是* .csv附件，并由Excel打开（尝试不同的版本）。 它显示损坏的字符集（字符像ěéáý）。 如果我在Notepad ++中打开文件，我可以看到格式设置为UTF8，没有BOM。 如果我将它转换为带有BOM的UTF8，excel可以打开它没有任何问题。 我的问题是，我不知道在哪里，如果有可能强制创build与物料清单的附件。 string数据从csv文件中读取，如下所示： $reader = [System.IO.File]::OpenText($inputFile) $data = $reader.ReadLine() $stringData = {parse, copy, clear $data} 附件是这样创build的： $Utf8WithBom = New-Object System.Text.UTF8Encoding($True) [Byte[]]$contentAsBytes = $Utf8WithBom.GetBytes("$stringData") $memoryStream.Write($contentAsBytes, 0, $contentAsBytes.Length) $contentType = New-Object Net.Mime.ContentType -Property @{ MediaType = "application/vnd.ms-excel" CharSet = "UTF-8" Name = $AttachmentName } $attachment = New-Object System.Net.Mail.Attachment […]

提示文本框，将保存Outlook的格式

所以我通过VBA自动化电子邮件。 我已经将电子邮件正文粘贴到Excel表单中的一个单元格中，然后在发送电子邮件之前将其拉出使用。 问题是：它看起来很菜鸟（尤其是当我不得不把它拖下来）。 有没有一个快速的方式来调用一个input框，记住电子邮件的格式？ 我试图调用inputBox，但它不保存格式.. 仅供参考，我的代码运行良好