Tag: 电子邮件

Excel VBA电子邮件单元格值: 我有以下代码的地址不工作…我想知道如何select电子邮件地址值出一个单元格，因为与单元格（1,1）.value它似乎不工作在我的案件。 Sub email_missing_forecast() Application.ScreenUpdating = False 'Déclaration des variables derniereligne = Range("B").End(xlUp).Row Adresse = Cells(i, "D").Value Adresse2 = Cells(i, "E").Value Adresse3 = Cells(i, "F").Value Project_number = Cells(1, 2).Value Project_name = Cells(2, 2).Value Project_due = Cells(3, 2).Value Lien = Cells(4, 2).Value Dim Objoutlook As New Outlook.Application Dim Objectmail 'Condition For i = 6 To derniereligne If […]

VBA使用模式validation电子邮件列表: 我有一个由分号和空格隔开的单元格中的电子邮件列表，但是我已经得到了只有用分号分隔时才validation电子邮件的模式。我在哪里插入空间来适应我的模式？电子邮件示例：aaa@bbb.com; ccc@eee.com; fff@ggg.com 单个单元中的电子邮件地址数量从1到20不等 validation以分号分隔的电子邮件的模式： ^(([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5}){1,25})+([;.](([a-zA-Z0-9_\-\.]+)@([a-zA-Z0-9_\-\.]+)\.([a-zA-Z]{2,5}){1,25})+)*$

Excel VBA – 应用程序调用者范围无法定义: 我有一个列表，其中包含名称和电子邮件地址的列，后面跟着另一列，用“发送电子邮件”button启动下面的macros。 macros应该通过application.caller函数来拉取当前行的位置，然后将行号与预定义的列号相结合，以便在填充我的电子邮件元素之前成功拉取名字，姓氏，电子邮件地址。这似乎没有工作，因为application.caller返回empty ，因此当按下发送电子邮件button没有单元格/行信息传递。代码如下： Sub Mail_ThankYouNote() 'Working in 2000-2010 Dim OutApp As Object Dim outMail As Object Dim rng As Range Dim lastrow, nationality, SentDate, EmailCount, Title, MailTO, LangStatus As Range With Application .ScreenUpdating = False .EnableEvents = False End With ActiveWorkbook.Sheets("Data").Select ' check if outlook is open, if not launch application Call CheckOutlook […]

Excelmacros提取行，取决于前几天的价值和30个项目加上一个完整的类别？: 我有一个excel文件，最初通过.iqy网页查询从我们的云计算程序导入库存数据。列标题是： A1= Quantity B1= Item C1= Description D1= Bin Code 现在我创造了一个macros; 刷新数据 Range("A1").QueryTable.Refresh False 删除所有零库存项目 Dim intRow Dim intLastRow intLastRow = Range("A65536").End(xlUp).Row For intRow = intLastRow To 1 Step -1 Rows(intRow).Select If Cells(intRow, 1).Value = 0 Or Cells(intRow, 1) = "" Then Cells(intRow, 1).Select Selection.EntireRow.Delete End If Next intRow 自动按Bin码sorting Range("A1:D1").Select Selection.AutoFilter Range("A2").Select Range("A1:D1668").Sort […]

Excel VBA发送电子邮件: 我想要一个macros在Outlook中发送excel文档作为电子邮件的正文。我试图录制一个macros，并发送它，但没有写任何代码。我将创build一个batch file，在预定时间打开excel，我希望我在excel中运行的程序能够发送标签“Assembly”，“Lam”，“Finish”和“MW”作为邮件正文在outlook。这甚至有可能吗？

从附带的IBM Notes发送电子邮件: 我想用VBA和Lotus Notes发送附件的电子邮件。我设法发送一封电子邮件，但附件从未包含在内。我在这里错过了什么？ Sub Macro1() ActiveWorkbook.Save Dim iMsg As Object Dim iConf As Object Dim strbody As String Dim fromAdr As String Dim subject As String Dim recip As String Dim numSend As Integer Dim Attachment1 As String ' Mail settings Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 ' CDO Source […]

无法发送在Excel单元格中命名的文件附件: 我对VBA编程有点新，所以请耐心等待。我试图通过一个标准的电子邮件，而不是一个个性化的审计备忘录来自动化我的组织部门负责人的电子邮件。发送给某个人的每封电子邮件也应包含相应的附件。我有一个包含三列的电子表格：姓名，电子邮件地址以及我要分别在A，B和C中附加的文件的位置。我代表这是我可以在下面最好的。甲………………..乙………………Ç 名称………….电子邮件附件………… John Smith ….. a@b.com ….. Q：\ PLIU \ File1 Jane Smith ….. c@d.com ….. Q：\ PLIU \ File2 Jimm Smith ….. e@f.com ….. Q：\ PLIU \ File3 这是我到目前为止的代码，但我无法弄清楚如何将文件写入附件列，因为debugging给了我“找不到这个文件，validationpath和文件名是正确的。 Sub AttachSend() Dim objMail As Outlook.MailItem Dim intX As Integer Dim FileCount As Integer Dim MailAttachment As String Dim MailAddress […]

我怎样才能从数组中删除一个项目？: 我有一个包含联系人电子邮件地址的Excel文件，如下所示。 ABC 1 Shop Supervisor Assistant 2 A hulk.hogan@web.com freddie.mercury@web.com 3 B brian.may@web.com 4 C triple.h@web.com roger.taylor@web.com 5 D 6 E randy.orton@web.com john.deacom@web.com 我已经创build了一个用户表单，用户可以select他们想要发送电子邮件的angular色（主pipe或助理），或者如果需要，他们可以通过电子邮件发送电子邮件，然后有代码将这些angular色的电子邮件地址，打开一个新的电子邮件，电子邮件地址到“到”部分。此代码如下所示： Private Sub btnEmail_Click() Dim To_Recipients As String Dim NoContacts() As String Dim objOutlook As Object Dim objMail As Object Dim firstRow As Long Dim lastRow As Long ReDim NoContacts(1 To […]

如何使用Mozilla Thunderbird通过Excel VBA生成和发送电子邮件: 我一直在试图使用VBAmacros的电子表格作为附件通过Mozilla Thunderbird发送电子邮件。 ///我已经search了Google和Stack Overflow本身，这些解决scheme似乎都没有工作。///我不是最好的编码或擅长本身，所以我只是想知道有没有什么灵魂可以帮助我？感谢任何帮助。问候，

replaceHTMLbody中的文本（从Excel VBA创build电子邮件）: 我有下面的VBA代码来正确地使用电子邮件模板创build一个电子邮件，但是我试图使用Substitute()函数来改变电子邮件正文中的一些文本。我收到一个错误，我不确定如何解决这个问题，任何帮助将是伟大的！运行时错误“1004”：无法获取WorksheetFunction类的replace属性这是试图从我的模板创build电子邮件的代码… Public Function GenerateEmail(fileName As String) Application.ScreenUpdating = False Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItemFromTemplate(fileName) With OutMail .HTMLbody = WorksheetFunction.Substitute(OutMail.HTMLbody, "%TESTNUM%", "98541") .Attachments.Add (Application.ActiveWorkbook.FullName) .Display End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing With Application […]