Tag: 电子邮件
邮件附件通过vbamacros
我正在运行一个macros通过Outlook通过一个或多个附件发送邮件给多个收件人通过VBA的Excel。 我不太熟悉macros，因此从各种来源获得了一些input，并且出现在下面的最终代码中。 不过，我已经提到最大。 限制3个文件附件，这是所有收件人常数，但不得不通过注释禁用，每当我只需要附加只有1或2个文件，如在下面的代码，我已经禁用第二和第三附件列附加1文件。 有没有什么办法可以让macros根据input的值自动获取input，例如，如果一个收件人有1个附件，而下一个收件人有2个或3个附件 Sub SendMail() Dim objOutlook As Object Dim objMail As Object Dim ws As Worksheet Set objOutlook = CreateObject("Outlook.Application") Set ws = ActiveSheet For Each cell In ws.Range("A2:A1000") Set objMail = objOutlook.CreateItem(0) With objMail .To = cell.Value .Cc = cell.Offset(0, 1).Value .Bcc = cell.Offset(0, 2).Value .Subject = cell.Offset(0, 3).Value .Body = […]
创build一个XLS并通过电子邮件发送
我希望你能帮助我，我有这样的代码： <?php session_start(); include('includes/connect.php'); header("Content-Type: application/vnd.ms-excel charset=utf-8"); header("Content-Disposition: attachment; filename=consultores.xls"); //File name extension was wrong header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Cache-Control: private",false); $query = $_SESSION['query']; $qry = $mysqli->query($query); echo $mysqli->error; ?> <body style="border: 1px solid #ccc"> <?php echo '<table class="table table-striped">'; ?> <tr> <th> Apellido </th> <th> Nombre </th> <th> E-Mail </th> <th> Teléfono […]
从Outlook电子邮件提取文本到Excel – 检查格式
我从电子邮件中提取文本到Excel，但我有问题的文字有特殊的字体，删除线。 解压缩之后，它的格式就像其他所有的文本一样，但是删除操作会改变它的含义。 在这种情况下，我需要使用条件，如下所示： If lines(j).Font.Strikethrough = True Then lines(j) = "Deleted " & lines(j) 有没有人有这方面的经验？ CODE的主要部分： Sub Export_Outlook_Emails_To_Excel() Dim Folder As Outlook.MAPIFolder Dim BodyMail As String Dim lines As Variant Dim row As Integer Dim DATA As Worksheet Dim j, Items As Long Set DATA = Worksheets("DATA") 'check emails – I deleted not important rows […]
Excel VBA脚本通过电子邮件从一个单元发送数据，但不是多个单元
我正在使用Ron de Bruin的VBA脚本，它将每个表单都带有一个电子邮件地址发送到指定单元格中的地址。 这意味着发送表格作为附件，但我只是想发送电子邮件正文中的单元格的数据。 我评论了发送附件的部分，并且能够发送包含电子邮件正文中一个单元格的数据的电子邮件。 但是，当我尝试从多个单元发送数据时，电子邮件到达空白。 我不是一个VBA专业人士，所以我使用他的网站提示，它看起来像这个应该工作，但它不： Sub Mail_Every_Worksheet() 'Working in Excel 2000-2016 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim sh As Worksheet Dim wb As Workbook Dim FileExtStr As String Dim FileFormatNum As Long Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object TempFilePath = Environ$("temp") & "\" If […]
在Excel中插入指向Outlook电子邮件的链接
我试图find一种方法来创buildExcel单元格中的超链接到现有的Outlook电子邮件。 用户应该能够点击单元格中的链接（也可以是带有vba代码的button），并打开引用的电子邮件。 我知道必须在Outlook（？）内打开pst文件，因此我们假设Outlook正在运行，相关的pst文件已经打开。 在search中，我find了一些导入电子邮件的方法，保存电子邮件的截图，但没有提供可点击的方式来打开电子邮件。 这是可能的，我的谷歌软弱？ 在此先感谢您的帮助。
发送电子邮件从单元格的谷歌表，与电子邮件中的其他列
道歉，因为我知道这已被问了几次，我从其他问题了解到，但我仍然卡住，不知道如何继续。 我试图让一个谷歌脚本发送一个电子邮件通知给更多的一个人，基于一个单元格的变化，也发送同一行中的多个单元格的电子邮件值？ 例如，如果“C”列发生变化，我可以发送一封电子邮件，其中包含“C”列中“A”和“B”列中的数据。 这是我一直在试图玩的脚本，但不知道如何添加多个电子邮件，并从另外两个单元格的值。 function sendNotifications() { var ss = SpreadsheetApp.getActiveSpreadsheet(); var sheet = ss.getActiveSheet(); var cell = ss.getActiveCell().getA1Notation(); var row = sheet.getActiveRange().getRow(); var cellvalue = ss.getActiveCell().getValue().toString(); var recipients = email@domain.com"; var message = ''; var cellA = '' if(cell.indexOf('B')!=-1){ message = sheet.getRange('A'+ sheet.getActiveCell().getRowIndex()).getValue() } var subject = 'Update to '+sheet.getName(); var body = + […]
我如何发送附有Python和Microsoft Exchange附件的电子邮件？
有人可以帮我从我的交换账户发送电子邮件，并添加附件。 SMTP不起作用，我得到即时超时问题。 0365不会将副本保存到我发送的文件夹中。 我唯一知道的另一个是exchangelib from exchangelib import Account, Credentials, Message, Mailbox, FileAttachment from email.mime.multipart import MIMEMultipart from email.mime.base import MIMEBase from email.mime.text import MIMEText from email.utils import formatdate from email import encoders email = 'XXXXXXXX' password = 'XXXXXXXX' a = Account(email, credentials=Credentials(email, password), autodiscover=True) dir_path = ('C:/Users/Istcrmt/Documents/Python/PythonforAnaconda3.5/') excel_name = 'test.xlsx' #attach an excel file: for […]
Excel vba：范围到邮件正文 – 超链接剪切
我正在使用一个修改后的Ron De Bruin的代码来调用一个带有范围的表格的Outlook邮件窗口。 在这个范围内，有一些细胞在我们公司的共同点上包含链接。 当创build的表格被插入到邮件正文中时，单元格中的超链接从一开始就以某种方式缩短，所以地址开始简单地带有两个点（字面意思）。 我想知道是否可以修改该function，以保持整个链接的地址，或者在邮件正文中插入表格之后，地址中的“..”可以通过地址的常规开始移除，这总是相同的？ Sub create_mail() '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 Dim lastrow As Long Dim today As Date Dim copies As String Dim cell As Range ' […]
查找和replace多个字段？
我正在努力寻找解决我的问题。 我有两个Excel文档，一个是“现有电子邮件地址”字段，另一个是“新客户电子邮件地址” 我不想发送电子邮件到“现有的电子邮件地址”，所以我需要search“新的客户端电子邮件地址”任何“现有的电子邮件地址”，并将其删除， 不幸的是，我不想find和replace数百个领域。 任何帮助将非常感激，谢谢乔希
VBA Excel Outlook电子邮件正文格式
我有useform自动发送电子邮件。 我想改变电子邮件的正文 – 其中一些将基于一个文本的单元格，所以它可以是dynamic的，一些将被固定在代码中。 现在 – 在运行我需要的对象的错误，我会感谢帮助。 我希望电子邮件正文中的每一行都是分开的。 Sub sendMail(ByVal mail As String, name As String, Msht As Worksheet, CCmail As Integer, CCperson As String) Dim applOL As Outlook.Application Dim miOL As Outlook.MailItem Dim recptOL As Outlook.Recipient mailSub = Msht.Range("J2") mailbody = Msht.Range("L2") Set applOL = New Outlook.Application Set miOL = applOL.CreateItem(olMailItem) Set recptOL = […]
