Tag: outlook

Excel VBA代码从单元中读取用户名，然后发送电子邮件给该用户

我需要一些帮助来创buildExcel VBA代码，它将从Excel中的单元格中读取一行用户名，然后通过searchOutlook联系人列表中的用户电子邮件地址向所有这些用户发送电子邮件。 我已经设法编写了将从电子表格中调出Outlook的撰写电子邮件对话框的代码。

将多个范围的值添加到电子邮件正文中

我有一个基本的Excel的电子邮件代码，但是我想知道如何使它可以添加几个不同的单元格的电子邮件的正文。 这需要包括一些范围。 这些范围应该只显示实际包含值的单元格的值，而不是空白的值。 例如，所以我想举个例子 B12数据（换行符x 2） E15：E20数据（LineBreak x2） F19：F20数据 我现在的代码是： Sub Send_to_Email() On Error GoTo PROC_EXIT Dim OL As New Outlook.Application Dim olMail As Outlook.MailItem Set olMail = OL.CreateItem(olMailItem) Dim SrcSheet As Excel.Worksheet Set SrcSheet = Sheets("Clean (2)") With olMail .To = SrcSheet.Range("A19").Text .Subject = SrcSheet.Range("F19").Text .Body = SrcSheet.Range("B19").Text .Display vbModal '.Send End With PROC_EXIT: […]

Visual Basic Excel txtinput文件

行“input＃1，数字（行，列）”给我一个运行时错误9.任何想法？ 代码中的注释解释了应该发生的事情。 Sub InputImage() 'brings a text file to the workbook Dim Row As Long, Column As Long, Nrow As Long, Ncolumn As Long Call MsgBox("Navigate to a folder that contains the file image.txt in the 00_18 folder") ' The next statement will open a dialogue box that will let ' the user navigate to […]

从Excel范围填充Outlook中的列表框 – 获取单元格的超链接

我正在尝试使用Excel范围中的数据在Outlook VBA中填充多列列表框。 我已经设法使用代码到目前为止工作： Private Sub CommandButton1_Click() 'Late binding. No reference to Excel Object required. Dim xlApp As Object Dim xlWB As Object Dim xlWS As Object Dim cRows As Long Dim I As Long Set xlApp = CreateObject("Excel.Application") 'Open the spreadsheet to get data Set xlWB = xlApp.Workbooks.Open("Query Log.xlsx") Set xlWS = xlWB.Worksheets(1) cRows = […]

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 […]

Outlook从附件vba excelembedded时调整图像大小

我有一些附加和隐藏图像到Outlook邮件的代码，以便他们可以embedded，并在最后插入用户签名。 有两个问题： 如果Outlook过大，Outlook的视图会变得非常糟糕，那么Outlook会调整它的大小。 如果我手动更正此设置的宽度和高度在100％缩放解锁纵横比图像显示确定，但它的签名削减。 通过将图像包装在文本前纠正此问题会在图像后面留下签名，使其不显示。 有什么方法可以纠正这个问题吗？ 这是我的代码（我从其他职位采取）： Sub Mail() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim myFileList(1) As String Dim i As Integer Dim wb As Workbook Set wb = ThisWorkbook Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Call CrearImagen myFileList(0) = wb.Path & "\ImagenesMail\Imagen0.jpg" myFileList(1) = wb.Path […]

如何将所有邮件从Outlook导出到Excel的特定文件夹

我有macros从Outlook INBOX的所有数据导出到Excel随着时间和date，但我需要设置到一个特定的文件夹以相同的方式复制。 如何设置到特定的子文件夹？ Option Explicit Sub CopyToExcel() Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim rCount As Long Dim bXStarted As Boolean Dim enviro As String Dim strPath As String Dim objOL As Outlook.Application Dim objFolder As Outlook.MAPIFolder Dim objItems As Outlook.Items Dim obj As Object Dim olItem 'As Outlook.MailItem […]

如何将.htm文件的内容添加到string？

我想将默认签名添加到从Excel中的用户窗体发送的电子邮件的末尾。 但是，由于身体是HTML（因为我不能改变）的签名，它不显示。 我有以下代码是default.htm签名的位置： strSig = Environ("AppData") & "\Microsoft\Signatures\Default.htm" 我现在需要做的（并且遇到问题）是将这个default.htm文件的内容添加到电子邮件正文的末尾。 但是，在做 .HTMLBody = "some text <br>" & strSig 它只是将文本forms的位置path添加到电子邮件。 我如何获得它插入的HTML文件的内容？

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 […]

将数据从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" […]