Tag: 电子邮件

VBA下拉创buildOutlook电子邮件HTMLBody: 我有一个VBA科迪从Excel表创buildOutlook电子邮件正文。 Excel表格中的值基于下拉值。（个月）。如果下拉菜单显示一月份，表格也会显示一月份。我的问题是，Outlook电子邮件HTML正文显示相同的几个月，他们不会根据我的下拉值而改变。 Sub CustomMailMessage() Dim OApp As Object Dim OMail As Object Dim rng As Range Dim sig As String Dim inputRange As Range Set dvcell = Worksheets("Sheet2").Range("S1") Set inputRange = Evaluate(dvcell.Validation.Formula1) For Each c In inputRange For i = 1 To 2 dvcell = c.Value Set OApp = CreateObject("Outlook.Application") Set OMail […]

Excel VBA电子邮件通知失败/成功时用户名解锁工作表/工作簿: 我有一个工作簿，我与很多人分享，有些部分受到保护，因为我不希望他们看到隐藏的工作表，行和列。是否有可能有一个VBA代码，将发送电子邮件通知给工作簿的创build者，如果用户试图解锁工作表/工作簿，失败和成功，用户在Windows和/或Excel中的用户名，没有用户知道它（看到它）？如果用户试图查看VBA代码或尝试取消隐藏表单，行和/或列，那么情况也是如此？我提前感谢大家，如果我在某个地方含糊不清，或者有任何问题，请告诉我。最好的祝福，

Excel VBA，如何回复特定的电子邮件: 我收到一封邮件，每星期三从一个特定的发件人。这封电子邮件的主题有时会改变 “暴露声明 – COB 20150217”主题的示例＃1 “保证金通知COB 2015-Feb-10”主题的示例＃2 发件人追加的date是我收到邮件前一天。我有下面的代码，可能会search该电子邮件，然后用自定义正文文本回复它，但我无法设法让代码find与该date在该主题的特定消息。有没有一种方法可以通过除主题之外的其他参数进行search？ Sub ReplyMail_No_Movements() Dim olApp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Variant Dim SigString As String Dim Signature As String Dim i As Integer Set olApp = New Outlook.Application Set olNs = olApp.GetNamespace("MAPI") Set Fldr = olNs.GetDefaultFolder(olFolderInbox) i […]

将Outlook“以脚本运行”规则集成到发送电子邮件的Excel VBA代码中: 我有一个Excel VBA脚本，用于创build活动工作表的pdf ，然后用附带的pdf发送带有Outlook的电子邮件。然后我在Outlook中有一个规则，在电子邮件上运行一个脚本，根据主题中的关键字到达已发送的文件夹，保存该电子邮件的pdf副本和/或它的附件。我宁愿只用Excel VBA脚本保存由Excel VBA脚本发送的电子邮件的pdf副本。否则，我需要在系统中的每台计算机上实现Outlook“以脚本运行”规则。我怎样才能结婚的Outlook脚本的Excel脚本？ Excel代码发送电子邮件（工作正常）： Sub AttachActiveSheetPDF_01() Dim IsCreated As Boolean Dim PdfFile As String, Title As String Dim OutlApp As Object ' Define PDF filename Title = Range("C218").Value PdfFile = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Title & ".pdf" ' Exportactivesheet as PDF With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, FileName:=PdfFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, […]

将数据从Excel导出到Outlook: 我已经在Excel中起草了一封电子邮件，用于填充数据表中的信息。单元格A1到A4包含“嗨，希望你做得好”和消息….等。 A5到H10有一个表格，信息和A11到A30有电子邮件内容，如“期待您的答复”。我只想复制A1：A4和A11：A30的值，但希望A5：H10以表格forms出现。此代码来自Ron De Bruin。我的下面的代码以表格格式粘贴所有内容： Sub Mail() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next Set rng = ActiveSheet.Range("A1:A24").SpecialCells(xlCellTypeVisible) On Error GoTo 0 If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" […]

VBA在电子邮件正文中插入链接而不使用HTML正文？: 我想在通过Excel VBA创build的电子邮件正文中插入一个链接。链接每天都在变化，所以我把它的价值放在B4单元格中。但是，我没有find一个正确的方式发送电子邮件与该链接。这是我正在使用的代码： Public Sub email_missing_forecast() Application.ScreenUpdating = False 'Déclaration des variables derniereligne = Range("B5000").End(xlUp).Row Project_number = Cells(1, 2).Value Project_name = Cells(2, 2).Value Project_due = Cells(3, 2).Value Link = Cells(4, 2).Value Dim Objoutlook As New Outlook.Application Dim Objectmail 'Condition For i = 6 To derniereligne Adresse = Cells(i, "D").Value Adresse2 = Cells(i, "E").Value […]

如何通过电子邮件发送Excel文件？: 我有一个Excel文件（Excel 2003 / xls格式），我想通过电子邮件与C＃发送它。我的代码发送成功，但当我尝试打开响应文件，似乎编码错误。例如这里是响应文件名： = _utf-8_B_RWxzesOhbW9sw6FzXzIwMTJfMTBfMTZf.dat 这里是响应文件本身： =？utf-8？B？VEdWdmJIWmhjMkZ1Wk1Pelh6UXlYekZmPz0NCiA9P3V0Zi04P0I / VGtW？= \？= utf-8？B？TlgwZFRXaTU0YkhNPT89？=“Content-Transfer-Encoding：base64 Content-Disposition：attachment 0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7 / CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAIwAAAAEAAAD + //// AAAAAAAAAAD ///////////////////// //////////////////// //////////////////////////////////////////// ////// //////////////////////// …. 这是我的代码片段： … var attachment = new Attachment(WriteFileToMemory("fileFullPath"), "fileName.xls"); attachment.ContentType = new ContentType("application/vnd.ms-excel"); attachmentCollection.Add(attachment); … private Stream WriteFileToMemory(string filePath) { var memoryStream = new MemoryStream(); _openedStreams.Add(memoryStream); using (var file […]

使用FileDialog将文件附加到电子邮件: 我想消除人为错误，当select一个文件发送附件在电子邮件。基本上消除这个代码Filename = Application.InputBox("Enter File Name:", "", "File Name")'Type in File Name并将其replace使用FileDialog ，这引起了我的注意。我很困惑如何正确使用它。每次尝试，我都可以使用该应用程序并查看该文件，但我不明白它是如何附加的。我的电子邮件编码如下。 Sub Mail_workbook_Test() Dim OutApp As Object Dim OutMail As Object Dim Date1 As Date Dim Recipient As Variant Date1 = Format(Now, "yyyy-mm-dd") 'Date and format UserName = Application.InputBox("Enter your name:", "", "FirstLast") Filename = Application.InputBox("Enter File Name:", "", "File […]

解决DNS，导出到Excel和HTML，然后发送邮件: 我几乎完成了我的剧本，并做了一些深夜编辑，并写在我的旧版本，所以我不能回去。脚本运行良好，仍然需要一些调整，但现在它已经完全停下来。这个想法是GC列表的IP。解决IP的问题，并将它们放在Excel表格中。然后将表格保存到htm和xlsx。最后邮寄给我。现在它被卡在sorting表，保存和邮寄…有人能给我一些见解我在这里做错了吗？它被困在sorting表，保存和邮寄。它不再sortingB3：B $计数：使用“1”参数调用“Sort”的exception：“sorting引用无效，请确保它位于要sorting的数据中，并且第一个”sorting方式“框不相同或为空。在C：\ Folder \ Scripts \ Get-IP.ps1：137 char：5 + [void] $ objRange.Sort（$ objRange2） + ~~~~~~~~~~~~~~ + CategoryInfo：NotSpecified：（:) []，MethodInvocationException + FullyQualifiedErrorId：ComMethodTargetInvocation 它不再保存xlsx文件，但保存HTM文件。显然不能覆盖一些东西。我甚至重新开始确定。使用“1”参数调用“SaveAs”的exception：“Microsoft Excel无法访问文件'C：// Folder / BlockedIP / HTML / 2014-07-08 / 0BCEF810'.bookbook”。在C：\ Folder \ Scripts \ Get-IP.ps1：160 char：5 + $ b.SaveAs（“$ FileXML”） […]

select从哪个帐户发送Outlook电子邮件？: 我有这个代码，使用Outlook发送电子邮件。我在Outlook中有多个电子邮件帐户，我试图添加一种方式，所以我可以告诉它从哪个电子邮件地址发送它？有人可以告诉我怎么做到这一点？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = Range("AS1").Column Then If Target.Row > 7 And Target.Value = "Send Email" Then Range("AU" & Target.Row).Value = Date End If End If If Target.Column = Range("CD1").Column Then If Target.Row > 7 And Target.Value = "Notify" Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) […]