Tag: 电子邮件

Excel VBA：保存和附加工作表为PDF

我已经结合了一些代码从一些不同的例子来得到这个工作，但我的解决scheme似乎klunky，我正在创build2个PDF文件。 一个在临时文件夹中，另一个在当前文件夹中。 临时文件夹中的那个是附加到电子邮件的那个。 我想只保存在当前文件夹中的一个PDF，并附上该PDF到电子邮件。 这是导出两个pdf的代码： Title = ActiveSheet.Range("B11").Value & " Submittal" ' Define PDF filename in TEMP folder PdfFile = ActiveWorkbook.Name i = InStrRev(PdfFile, ".xl", , vbTextCompare) If i > 1 Then PdfFile = Left(PdfFile, i – 1) PdfFile = Title For Each char In Split("? "" / \ < > * | :") PdfFile […]

更改电子表格时，使用Outlook从Excel发送自动电子邮件

我有问题让Outlook通过Excel电子表格发送电子邮件。 当我在Outlook中使用Outlook 2013时没有任何问题，但是当我使用具有唯一域的先前版本（2010）（someEmail@CreatedDomain.mil）时，出现错误。 我想说的是因为领域，但我不确定。 以下是我在网上find的代码。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) '—–AUTOMATIC EMAIL GENERATION———————– Dim answer As String answer = MsgBox("Saving this document will send an email to the database director and close the database. Are you sure you want to save?", _ vbYesNo, "Save confirmation") ' Above code informs the […]

使用Excel VBA获取发件人的电子邮件地址

我使用以下代码来提取主题，收到date和发件人的姓名： Set InboxSelect = GetObject("", "Outlook.Application").GetNamespace("MAPI").PickFolder i = 0: EmailCount = 0 EmailCount = InboxSelect.Items.Count While i < EmailCount i = i + 1 blastRow = Cells(Rows.Count, 1).End(xlUp).Offset(1).Row LastRow = Sheets("Body").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row With InboxSelect.Items(i) MsgBox (SenderEmailAddress) 'If .senderemailaddress = "*@somethingSpecific.co.uk" Then 'EmailCount = EmailCount + 1 Sheets("Import Data").Range("A" & blastRow).Formula = .SenderName Sheets("Import Data").Range("B" & […]

macros将多个文件发送到多个地址

请帮忙！！ 我需要build议或信息来帮助我完成这个耗时的任务。 每个月我都必须从内部数据库下载30个文件，并将它们保存在那个月的文件path中。 例如六月份文件path中的六月份文件。 然后，我必须将这些发送给30个不同的客户，他们与通用电子邮件相关。 例如AA客户工作簿到AA电子邮件地址。 所有客户信息和代码都保存在另一个工作簿中。 我想通过一个macros来做到这一点，但只具备在每个电子表格上安装macros的技能，然后必须input工作簿并单独运行（仍然很耗时）。 我希望有人能够指向我能够运行一个macros的方向，将一个文件夹中的所有文件发送给相关客户，或者将我指向类似的东西，这可以帮助我开始。 谢谢 码： Sub Mail_Workbook_1() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "bradley.johns@xxxx.net" .CC = "" .Subject = "Monthly Japan Order" .Body = "Good Morning,Please find this month's JPN order […]

Excel电子邮件悬挂Outlook直到发送 – error handling？

我使用下面的macros发送Excel工作簿。 我使用空白的电子邮件地址，以便在Outlook中显示电子邮件，并允许用户input电子邮件地址。 但是，除非发送或closures电子邮件而不发送，否则Excel不会让用户在Outlook中执行其他操作，甚至打开附件进行检查。 它不会closures文件，直到电子邮件被处理，所以它被困在这个循环中。 我怎样才能解决这个问题？ TempFilePath = Environ$("temp") & "\" TempFileName = "The File Name" FileExtStr = ".xlsx" With TheWorkbook .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next For I = 1 To 3 .SendMail "", _ "This is the Subject line" If Err.Number = 0 Then Exit For Next I On […]

VBA – 使用Lotus Notes在签名上方插入电子邮件正文

我试图实现的是非常简单的，在莲花笔记上签名的上方插入电子邮件的正文。 我在vba中运行的代码在“主题”，“发送到”和“正文”字段中的lotus notes paste中打开一个新的电子邮件窗口。 一切工作完美，但是当插入的身体把它放在我的签名下面的文本。 我已经做了大量的挖掘工作，试图find一个解决scheme，但没有发现任何工作正确的东西。 我发现的一些postbuild议删除签名，粘贴身体，然后重新签名到电子邮件 – 不是我真正的方法。 这是我的代码： Sub CreateEmail() Dim Notes As Object Dim Maildb As Object Dim objNotesDocument As Object Dim objNotesField As Object Set Notes = CreateObject("Notes.NotesSession") Set Maildb = Notes.GETDATABASE("", "") Maildb.OPENMAIL Set objNotesDocument = Maildb.CREATEDOCUMENT Subject = "Hey look at my email!!" Set objNotesField = objNotesDocument.APPENDITEMVALUE("Subject", Subject) Set […]

vba代码SenderEmailAddress在Excel中给path

我devise了一个VBA代码来从你的outlook的收件箱中检索邮件列表，使用链接从outlook中取回邮件列表 这里有一行代码 ThisWorkbook.Sheets(1).Cells(oRow, 5) = Folder.Items.Item(iRow).SenderEmailAddress 它指定获取发件人的电子邮件地址，但是当它存储在Excel中时，显示如下 /O=EXCHANGELABS/OU=EXCHANGE ADMINISTRATIVE GROUP (FYDIBOHF23SPDLT)/CN=RECIPIENTS/CN=WIPRO365.ONMICROSOFT.COM-52823-C1374FA5 我想看到它作为knowledge@wipro.com意味着以正确的电子邮件格式说。 如何利用这个选项？ 我应该在VBA代码或Excel中进行更改。 我曾经在很多博客上尝试过这个方法， 任何build议都会有所帮助。

如何在Excel VBA电子邮件中添加签名？

当用户单击一行中的单元格时，我使用此VBA代码发送电子邮件。 我想在电子邮件正文中添加一个带有图像的签名。 我怎样才能修改我的代码把这个？ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = Range("BL1").Column Then If Target.Row > 7 And Target.Value = "Take Action" Then Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) strbody = "<p style='font-family:calibri;font-size:16'>" & "Dear Sirs," & "<br><br>" & vbNewLine & vbNewLine & _ "FAO: " & "<b>" & Range("B" & ActiveCell.Row) […]

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

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

从Excel发送多封电子邮件

我有一个有7个工作表的工作簿。 一旦在特定工作表上遇到一个值，我有下面的vba发送一封电子邮件。 每张表有不同的价值和不同的附件发送。 如何为每张表添加代码以便发送电子邮件？ 提前致谢 设置为一般（声明） Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Application.Intersect(Range("M4:M368"), Target) Is Nothing Then If IsNumeric(Target.Value) And Target.Value < 3500 Then Call Fuel_LevelW03 End If End If End Sub 接着是一个模块General Fuel_LevelW03 Sub Fuel_LevelW03() Dim OutApp As Object Dim OutMail As Object […]