Tag: 电子邮件
邮件合并与从Excel或SQL数据库分组键字段
我已经search了互联网find一个解决scheme，但到目前为止，没有成功。 我有VBA和SQL中的中级技能，但一直无法创build我所需要的。 我有一个数据库与以下信息。 Co.Name |Email | Product | Q | SH1 |info@sh.com | Orange | 105.566 | SH1 |info@sh.com | Berries | 200.000 | BT1 |info@bt.com | Orange | 300.000 | BT4 |info@bt.com | Apple | 101.700 | WT1 |info@wt.com | Berries | 201.040 | WT6 |info@wt.com | Apple | 204.000 | Co.Name是指Company_Name，Q是数量。 我需要一个邮件合并插入一个独占表使用键字段来形成表。 在之前的虚拟表中，关键字段可以是公司名称或公司邮件。 […]
在给定date前7天发送通知/电子邮件
我有员工的桌子。 它包含一些信息和出生date。 是否有可能发送通知/电子邮件（直接从Excel中）让我们说，提前7天知道他/她将有生日快？ 我发现了一些教程，但都需要Visual Basic。 不幸的是，这是我的妹妹没有任何编程知识。
如何将Excel文件作为电子邮件附件放入SAP CMC中？
我一直在试图在SAP BO CMC中安排一个报告。 这个报告最初是用Python编写的，内置在一个.exe文件中。 运行此.exe应用程序将报告保存到本地文件夹中的.xlsx文件中。 我想利用SAP BO CMC中的便捷调度function发送Emails中的报表。 我尝试并在CMC中创build了一个“本地程序”，并将其链接到.exe文件，但您可以轻松地想象我遇到的问题 – 应用程序将该文件放在文件夹中，但CMC将无法抓住生成的Excel文件。 有没有办法重新编写Python程序，以便输出不是某个文件夹中的文件， 而是CMC可以作为电子邮件的附件获得的对象？ 我一直在计划在CMC中的Crystal报告，这自然发生。 Crystal输出可以作为电子邮件的附件发送。 不知道如果类似的可能会发生一个.exe，以及如何？ 请分享你的想法。 非常感谢你！ PS不要以为可以用Crystal重写报表，因为数据需要根据不同数据源的input进行操作。 这就是Python提供帮助的地方。 我希望我不需要编写程序来覆盖电子邮件的内容，并将其安排在Windows的计划任务中。 最后一个选项…这将太不方便维护。 我们无法轻松访问服务器。
如果存在特定的单元格值，则自动发送电子邮件; 在体内包含相邻的值
我一直在做一个xlsm表单，作为其函数的一部分，如果在其他数据文件中找不到匹配项，则在J列中产生“无数据”的结果。 我需要的是让Excel循环通过J列，并自动生成一个电子邮件，如果J =“无数据”的值，并在电子邮件的身体，我需要包括在同一行F列的单元格偏移值。 我已经使用了Ron De Bruin代码，并使用来自项目其他地方的类似function的循环代码对其进行了修改。 我不能得到这个function，可以使用一些方向。 这是我到目前为止的代码 Private Sub EmailIC() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'This macro adapted from: http://www.rondebruin.nl/win/s1/outlook/bmail4.htm Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim wbXLoc As String, wbX As Workbook, wsX As Worksheet, wsXName As String Dim Xlr As Long Dim rngX As Range, cel As Range, order As Range […]
将基于工作簿名称的工作簿发送到不同的地址
我有一个代码，打开一个对话框，允许用户select一个Excel工作表，过滤国家列（11），复制并粘贴到一个新的工作簿国家，新的工作簿后，该国家，重复下一步行动国家，保存并closures每个工作簿。 在closures工作簿之前，它将新创build的工作簿发送到我的电子邮件地址。 如果工作簿被命名为“比利时”，请将电子邮件发送至Jane.Doe@email.com，如果工作簿命名为“Bulagria”，则发送电子邮件至John.Doe@Email.com等等。 不同的国家通过电子邮件发送到不同的地址。 我的电子邮件代码在这里 Public Sub Mail_workbook_Outlook_1() 'Working in Excel 2000-2016 'This example send the last saved version of the Activeworkbook 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 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 = "philip.connell@email.com" .CC = "" .BCC […]
Excel VBA将单个图像embedded到电子邮件联系人列表中
我已被派去发送圣诞节问候，已定制给特定的客户。 然而，这些问候是在100年代，这样做会自动节省我的时间 – 而这些问候是每年都做！ 在Excel中，列A中列出了客户名称，列B中列出了单个电子邮件，列C中个别自定义问候语文件的path。 我目前发现的是一个VBA代码，它使我可以select通过它们的path附加（但不embedded）这些文件到各个电子邮件。 可能有人向我解释和/或演示如何embedded通过列Cfind的附加文件？ 非常感谢你！ 我现在拥有的是： Sub Send_Files() 'Working in Excel 2000-2016 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim cell As Range Dim FileCell As Range Dim rng As Range With Application .EnableEvents = False .ScreenUpdating = False End With Set sh […]
将单元格范围复制到outlook邮件主题
这个代码的function是复制特定范围的单元格 ，每个单元格（像1ML-234-1R这样的代码 ）， 并将其放在Outlook邮件主体 （取自Ron de Bruin Excel自动化代码）中。 我希望单元格数据进入用逗号（，）分隔的邮件主题 ，并且不会在任何单元格数据之前或之后留下任何空格 。 Sub Mail_Selection_Range_Outlook_Body() 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm 'Don't forget to copy the function RangetoHTML in the module. 'Working in Excel 2000-2016 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells […]
杀死Outlook邮件正文中的空格
这个代码的function是复制特定范围的单元格，每个单元格（像1ML-234-1R这样的代码），并将其放在Outlook邮件主体（取自Ron de Bruin Excel自动化代码）中。 我想杀死每个单元格之前和之后出现在主体中的空格，并用逗号（，）分隔每个单元格的值。 使用修剪命令，但没有运气。 Sub Mail_Selection_Range_Outlook_Body() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Nothing On Error Resume Next 'Only the visible cells in the selection 'Set rng = Selection.SpecialCells(xlCellTypeVisible) 'You can also use a fixed range if you want Set rng = Sheets("Sheet1").Range("D1:D12").SpecialCells(xlCellTypeVisible) On Error […]
Excel – 找不到范围，错误91
我尝试从查找表（不同的工作表）的单元格中的名称input查找电子邮件。 我尝试从单元格K中查找名称，并在R单元格中输出电子邮件。 我查找来自不同表单的电子邮件。 这是我的查询表。 但是，当我试图find使用查找，我得到错误91是对象variables或块未设置可能meand它无法从查找表中find范围。 这是我的VBA代码拆分名称和查找。 我想输出';' 在每个名字的末尾，以便我可以发送自动提醒电子邮件给他们所有的单元格。 Public Sub getEmails() Dim toNames As Range Set toNames = Range("K11") ' names input by user Dim names As Range Set names = Sheets("Email").Range("B2:C23") ' names range from lookup table from different worksheet Dim splitNames splitNames = Split(toNames, ",") Dim selectedEmails As String Dim findRange As Range […]
如何使用vba从2个不同的用户获取默认的Outlook文件夹
有一个从Outlook与VBA获取默认文件夹的命令是： OutlookApplication.Session.GetDefaultFolder(x) 例如： OutlookApplication.Session.GetDefaultFolder(olFolderOutbox) 但是，电子邮件用户名并未在代码中声明，因此它将使用默认的Outlook用户。 我的问题是如何使用该function与两个用户，假设我有2个电子邮件链接到我的Outlook帐户。 希望得到一个满意的答案，在此先感谢。
