Tag: 电子邮件

Excel VBA – validation是否选中了checkbox并连接各个文本框的值: 我是一名Excel VBA初学者，希望得到一些帮助。在客户注册用户表单中，我有一个“联系人”部分，该部分将被保留以接收最多5个正在注册的客户的联系电子邮件。在这个用户表单中，我有以下对象： 5个文本框（ txtEmail1 ， txtEmail2 ， txtEmail3 ，…） 5个checkbox（ ckboxEmail1 ， ckboxEmail2 ， ckboxEmail3 ，…） 1命令bSendEmail （ bSendEmail ）电子邮件将被input到文本框中，button将用于打开Outlook应用程序，电子邮件已经在“到”字段中。 checkbox将用于定义哪些电子邮件将包含在“收件人”字段中。这是我的怀疑。我如何validation哪些checkbox被选中，从文本框中只使用（连接）他们的电子邮件？实践例1： TxtEmail1.value = email1@example.com TxtEmail2.value = email2@example.com TxtEmail3.value = empty TxtEMail4.value = email4@example.com TxtEMail5.value = empty CkboxEmail1.value = true CkboxEmail2.value = true CkboxEmail3.value = false CkboxEmail4.value = true CkboxEmail5.value […]

使用Excel中的macros在单个邮件中发送多个工作表中的详细信息: 每当我运行一个macros，我需要发送一定的范围的单元格在不同的工作表特定的邮件ID。 Sub Send_Range() Sheet1.Range("A2:V28").Select ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope ' .Introduction = "This is a sample worksheet." .Item.To = "pkumar11@amgen.com" .Item.Subject = "My subject" .Item.Send End With End Sub 使用这段代码，我可以在邮件中发送来自工作表1的范围（A2：V28）的所有值。但是我也希望在单张邮件中发送来自工作表2的范围值（B3：F28）以及工作表1中的值。请帮帮我。

VBA Excel创buildOutlook电子邮件主题和主体空白: 我有一个由别人发起的Excel电子表格，通过一个计划的任务发送一个电子邮件到一个组，或者至less已经习惯了。它最近停止了工作。我现在没有时间重build他的整个Rube Goldberg / Wile E. Coyote系统，所以我试图修复它。在其中一个Excel文档中，存在此代码 Set rng = Nothing On Error Resume Next Set rng = Sheets("Weight").Range("A2") On Error GoTo 0 If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & _ vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End […]

通过电子邮件发送电子表格: 嗨，我遇到了一个问题，试图通过Excel发送电子邮件。我正在尝试从Excel中发送一个电子邮件，其中显示了一个时间表。星期五我能够得到电子邮件发送，但现在似乎没有工作。也许它只是需要一段时间发送我不敢肯定。我希望能够发送颜色的范围，如果可能的话，我不知道这是可能的。任何帮助将非常感激 Private Sub SendEmail() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OlObjects = OutApp.GetNamespace("MAPI") Set OutMail = OutApp.CreateItem(olMailItem) On Error Resume Next With OutMail .To = ("xxxx@hotmail.com") .Subject = "Test Mail" .Body = "This is a test email." & Time […]

快速处理错误发送电子邮件地址不存在: 我在Excel中使用库 – Microsoft Outlook。例如：当每条logging中有其他邮件地址时，我有100条logging。但在有些logging中，有2-5个电子邮件地址。当我使用函数调用 .Send 它是在“后台”发送电子邮件。但是当VBA遇到错误时就会停止。示例源代码问题：电子邮件地址缺less点电子邮件地址不分隔（例如：电子邮件@ gmail.comemail2 @ gmail.com 错误的电子邮件地址（emailgmailcom）当Outlook想要在不存在的地址上发送电子邮件时，就会出现这个问题。是否有机会检查电子邮件地址是否正确，但不要写30-50行代码？

我怎样才能保持Excelmacros中的单元格的原始格式？: 我是Excel VBA中的新成员，我设法创build了一个简单的macros来自动化一些电子邮件，这些电子邮件为我的工作人员提供了定制的报告。在这种情况下，我使用一个工作表，根据添加到文件中的信息而变化。 macros使用这些信息，并创build一个定制的电子邮件。其中一些信息是时间和百分比值，在工作表中，单元格保持这种格式。例如，如果这个人已经在特定的任务中工作了3个小时，它将显示该单元格为“3:00”。但是，当创buildvariables并使用它们来创build电子邮件时，这些值将显示在数字对应中。示例电子邮件这是0.666666666666667报告！这个自动电子邮件的想法是帮助您实现您的日常目标期望。如果您认为可以做得更好，请随时与我们联系！目前您正在：•评分时间的00:00•质量时间的00:00•不等级时间的2.79282407407407E-02从现在开始，它是0.666666666666667，您应该有0.3125，所以您错过了0.284571759259259。此外，您的每日完成目标是0.133333333333333。 PD：你有00:00，所以你是完美的！我想以我需要的特定格式显示这个值，这也是单元格的原始格式。我留给你的代码，如果有新手的错误对不起，我是新来的。提前致谢。 Sub SendEmail(what_address As String, subject_line As String, email_body As String) Dim olApp As Outlook.Application Set olApp = CreateObject("Outlook.Application") Dim olMail As Outlook.MailItem Set olMail = olApp.CreateItem(olMailItem) olMail.To = what_address olMail.Subject = subject_line olMail.BodyFormat = olFormatHTML olMail.HTMLBody = email_body […]

如何在Excel中embeddedExcel工作表的内容到电子邮件？: 我有发送电子邮件的C＃代码。在电子邮件的正文中，我想发送Excel表的内容。一种方法是在Excel文件中为每个logging创build包含html行的html表，并将该代码embedded到电子邮件的正文中。有没有更简单的方法来做到这一点？什么地方我可以指定Excel表的path，直接将表复制到电子邮件正文？谢谢。

使用PHP生成并发送Excel文件: 这是可能的，而不必先在服务器上创build一个物理文件？最初，我不得不做一个PHP的网页，每周会发送一封关于网站新成员的信息…这很好，我只是用一个cron作业，每周运行php页面…现在我已经被要求设置电子邮件，所以它会自动发送一个Excel文件的数据…有谁知道这是甚至可能吗？如何？问候，Vinoth S

如何在C＃应用程序中删除Excel Interop对象引用: 我正在使用EXCEL interop来生成Excel，然后我将它作为附件附加到邮件然后发送邮件。发送邮件后，我想删除生成的文件。在删除它是抛出错误： this file cannot be deleted as it is is used by another process 我search了SO和其他网站，发现有关COM组件的有趣事实。参考：如何正确清理Excel互操作对象？如果我不附加它作为附件然后文件被删除。删除之前，我删除所有的COM引用。但是，当我使用它作为附件它是抛出错误：我的代码是这样的： workbook.SaveAs(root + statics + ".xls", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Excel.XlSaveAsAccessMode.xlNoChange, Type.Missing, Type.Missing, Type.Missing, Type.Missing); // Garbage collecting // Clean up references to all COM objects // As per above, you're just using a […]

Excel VBAvalidation自动电子邮件状态: 到目前为止，我一直在环视networking。我有一个带有关联VBA代码的Excel电子表格，在每天的某个时间，将工作簿的内容通过电子邮件发送给我工作的公司的其他人员。这段代码是无限循环的，很lessclosures。我们把它安装在一台计算机上，整天这样做来计算和更新我们内部网上的各种东西。有几个工作簿的代码每天在不同时间使用延时function访问。问题是，有时代码运行速度有点快，最终发送两个相同的工作簿，而不是一个电子邮件。请参阅下面的代码： Private Declare Sub Sleep Lib "kernal32" (ByVal dwMilliseconds As Long) Private Sub Workbook_Open() Do While 1 Start = Timer If Hour(Now())=13 & Minute(Now())>=45 Then s = "path to file" Application.DisplayAlerts = False Workbooks.Open Filename:=s ActiveWorkbook.SendMail Recipients:="someone@someone.com" ActiveWindow.Close End If delay = Int(600 – (Timer – Start)) If delay>0 […]