Tag: 前景

Excel VBA将工作表复制到新的工作簿并通过电子邮件发送到Outlook中的新工作簿

我有一段代码，将当前文件附加到发给我们销售代表的电子邮件中，等于销售代表电子邮件。 和我们公司的订单电子邮件。 而不是将整个文档附加到此电子邮件，我想从文档复制制表符，并将其粘贴到一个新的文档。 然后只发送新文档（从而减less文件大小，并希望将其从.xlsm附件更改为.xls附件）。 If ShapesAfter > ShapesBefore Then MsgBox "Please Repair Invalid Equipment Selection", , "Invalid Selections _ Have Been Made" ElseIf ShapesAfter = ShapesBefore Then Sheets("inputs").Select Dim y As String y = Cells(61, 5).Value Sheets("config").Select Application.Dialogs(xlDialogSendMail).Show "" & y & "; " & "orders@domainname.com"

如何validationOutlook会话是否打开使用VBA

我有VBAmacros从Excel中提取LN的报告，并发送邮件给我的经理。 我已经使用调度程序来使用.vbs脚本来运行这个MACRO。 这个调度程序从星期一到星期五早上运行。 这里的问题是我们有时会在星期六和星期天的时候对我们的系统进行维修，而且前景会议也会closures。 我在这里想要的是我想写一个VBAmacros，它将首先validation出来看看会议是否打开，如果它是开放的，那么我们很好，如果不是我们需要打开Outlook会话和发送邮件。 需要你的专长:)

检查附件的大小

所以我有一个仅用于附件目录的列。 它从O24:O33开始，并不是所有的字段都填写了附件。 我有这个代码将Outlook邮件中的目录添加为附件。 Dim objmail as Object Dim attach as object Dim i as integer, lrow as long lRow = Cells(Rows.count, 15).End(xlUp).Row Set objMail = objOutlook.CreateItem(0) Set attach = objMail.attachments For i = 23 To lRow attach.add main.Range("O" & i).Value Next i 我现在想要的是检查附件的总大小，如果大于10mb ，它会提示用户他已经达到了最大的附件大小。 任何帮助？ 谢谢。

如何设置一个macros来启动每次电子邮件到达Outlook 2007中的某个子文件夹？

我有一个macros在一个子文件夹中导出电子邮件的相关领域，但我需要它每次收到一个新的电子邮件时自动运行。 事实上，我只想输出主题行，是否有一个脚本会触发这个macros（'ExportMessagesToExcel'），当一个电子邮件登陆“M_M_Asia”？ 我在Outlook 2007中。 如果有人能帮助，我将永远感激。 干杯。

将工作簿中的不同工作表发送到不同的电子邮件+带有Outlook签名的CC

我在工作簿中的每个工作表上都有一段电子邮件，我希望将工作表的主体，邮件正文和签名发送到工作表上的电子邮件地址。 主题工作正常，但消息和签名的身体没有。 以下是我的VBA代码。 请，我真的需要你的帮助。 非常感谢。 Sub Mail_every_Worksheet() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets On Error Resume Next If sh.Range("g1").Value Like "*@*" Then sh.Copy ActiveWorkbook.SaveAs sh.Name, 56 ActiveWorkbook.SendMail ActiveSheet.Range("g1").Value, _ sh.Name & " Data" Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True Application.DisplayAlert = False End Sub […]

将Excel图表复制到Outlook邮件消息

我在列A中有电子邮件地址，在同一张表中有一个图表对象。 对于每个电子邮件地址，我想在Outlook中创build一个新邮件并将Excel图表粘贴到电子邮件正文中。 我的尝试（下面）的问题是，图表不会被粘贴到邮件正文中。 我该如何解决？ 这我的代码： Sub smail() Dim r As Integer Dim o As Outlook.Application Dim m As Outlook.MailItem Set o = New Outlook.Application r = 1 Do While Cells(r, 1) <> "" Set m = o.CreateItem(olMailItem) m.To = Cells(r, 1) m.CC = "xyz@anc.com" m.BCC = "abc@xyz.com" m.Subject = "Test" ActiveChart.ChartArea.Copy Set wEditor = o.ActiveInspector.WordEditor […]

自动连接到MS Excel，并使用Excel VBA检查未读的电子邮件

我正在做一个基于excel-vba的项目。 有2个用户。 用户A和用户B 用户A有一个Excel表格的Excel工作簿。 用户B将定期向用户A的Outlook帐户发送文档。 我的要求是通过使用macros给用户A 2个选项。 选项1：手动检查是否有来自特定用户的未读电子邮件。 这是通过： 从Excel工作簿中打开Outlook，然后用户A可以手动searchOutlook帐户。 我已经使用下面的代码成功完成了这个。 Sub Open_Outlook() ' This Macro Opens Microsoft Outlook ' Runs an executable program Shell ("OUTLOOK") End Sub 选项2：自动检查是否有来自特定用户的未读电子邮件。 这是通过： 创build一个连接到Outlook。 检查是否有未读的电子邮件。 Sub ExtractFirstUnreadEmailDetails（） Dim oOutlook As Object Dim oOlns As Object Dim oOlInb As Object '~~> Get Outlook instance Set oOutlook = GetObject(, "Outlook.Application") […]

Excel中的硬代码电子邮件地址

以下是使用任何电子邮件程序打开的简单代码。 我的问题是，我想添加三个电子邮件列表，但只有我有一个地址，Outlook 2013才能识别它。 前景的正确格式是什么？ Application.Dialogs(xlDialogSendMail).Show _ arg1:="attributes@hotmail.ca", _ arg2:="East attributes" & Now() 我努力了 Application.Dialogs(xlDialogSendMail).Show _ arg1:="attributes@hotmail.ca" & ";" & "runaway@gmail.com", _ arg2:="East attributes" & Now()

如何显示用于从Outlook发送邮件的macros中的签名？

目前我已经创build了一个macros，其中有一些内容为身体，之后，我想显示Outlook用户的默认签名。 我在Excel中有两个button，每个都有两个macros。 。显示是我认为负责签名显示，但是当我使用它时，签名不是为了第一个macros，而在第二个function来临，但是在 身体的顶部也。 请告知做什么。 以下是我的macros： Sub email() Dim OlApp As Object Set OlApp = CreateObject("Outlook.Application") Dim myNameSp As Object 'Set myNameSp = CreateObject("Outlook.Namespace") Dim myInbox As Object 'Set myInbox = CreateObject("Outlook.MAPIFolder") Dim myExplorer As Object 'Set myExplorer = CreateObject("Outlook.Explore") Dim NewMail As Object 'Set NewMail = CreateObject("Outlook.MailItem") Dim OutOpen As Boolean Dim nameList As […]

有没有办法使用VBA中的Items.find（）从Outlook中提取某些文本？

我需要从批量提取特定的文本（通过9000电子邮件） 我想知道会有这样的工作 Dim Folder as Outlook.MAPIFolder Dim sFolders As Outlook.MAPIFolder Dim iRow As Integer, oRow As Integer Dim MailBoxName As String, Pst_Folder_Name As String, Destination As String ThisWorkbook.sheets(1).Cells(1,1) = "Destinations" For iRow = 1 To Folder.Items.Count ThisWorkbook.Sheets(1).Cells(oRow, 1) = Folder.Items.Find(Destination) 我在几年前只有一些VBA的经验，我需要为我的工作创build这样的系统，这样我就可以从电子邮件正文中提取所需的信息，而不是单独扫描数以千计的电子邮件。 有谁知道一些很好的源代码/教程，我可以看看？ 因为每个人都把我带回到同一个地方 谢谢