Tag: 电子邮件
如何在电子邮件VBA Excel中插入链接
我已经创build了一个macros，在条件满足时向某些人发送电子邮件。 但是，在电子邮件正文中，我想插入Link而不是http://blabla.com 。 你知道我怎么能做到这一点？ 链接在我的单元格B4上，这是下面的代码。 Public Sub email_missing_forecast() Application.ScreenUpdating = False 'Déclaration des variables derniereligne = Range("B5000").End(xlUp).Row 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 Adresse = Cells(i, "D").Value Adresse2 = Cells(i, "E").Value […]
使用两个电子邮件地址使用vba复制Outlook中的电子邮件主题为Excel？
我有两个电子邮件地址。 第一个是address1@domain.com.vn ，第二个是address2@domain.com.vn 。 我想复制在第二个地址address2@domain.com.vn微软Outlook的电子邮件主题优秀使用VBA。 我使用波纹pipe代码，但它不工作。 Sub GetFromInbox() Dim olapp As Outlook.Application Dim olNs As Namespace Dim Fldr As MAPIFolder Dim olMail As Variant Dim Pst_Folder_Name Dim MailboxName 'Dim date1 As Date Dim i As Integer Sheets("sheet1").Visible = True Sheets("sheet1").Select Cells.Select Selection.ClearContents Cells(1, 1).Value = "Date" Set olapp = New Outlook.Application Set olNs = olapp.GetNamespace("MAPI") […]
使用Excel自动发送电子邮件中的多个附件
我希望有人能帮忙。 我有一个Excel中的macros查看一列电子邮件地址，并发送一个单独的电子邮件到这些地址与指定的附件。 macros完美的工作，但我不确定如何适应macros能够发送两个附件在同一个电子邮件。 请帮忙。 完整的代码是; Sub Send() 'Working in Excel 2000-2016 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 = Sheets("Email") Set OutApp = CreateObject("Outlook.Application") For Each […]
Excelmacros – 尝试的操作失败。 一个对象无法find
任何人都可以帮助我解决这个问题。 我已经创build了一个macros，它将读取我的Outlook电子邮件，并提取值和标题（主题时间发送等）他们去我的Excel表单之一。 这个工具已经在工作。 不过，我认为在某些地方我的Outlook有某些事情发生，代码不再工作，并提示错误“尝试的操作失败，找不到对象”。 只能通过代码读取的文件夹的位置在“收件箱/ TIBCO报告文件夹”中。 错误是在线提示 Set olFolder = olFolder.Folders(1).Folders("Inbox").Folders("TIBCO Reports Folder") 这是代码的一部分： Dim olApp As Object Dim olFolder As Object Dim olMailItem As Object Dim strTo As String Dim strFrom As String Dim dateSent As Variant Dim dateReceived As Variant Dim strSubject As String Dim strBody As String Dim date1 As Date Dim […]
outlook新的电子邮件到Excel行
我想创build一个C＃控制台应用程序（或一个服务 – 不知道如何开发一个服务）： 1）在收件箱> LOTALogs文件夹中收到新电子邮件时知道。 此电子邮件由移动应用程序发送，包含附件和客户遇到的一些问题。 2）使用逗号分隔的新电子邮件内容parsing附加内容到已设置列的Excel工作表中。 我设法创造： 1）parsing器： public static string[] emailContentsArray() { string content = "Username = Customer1,User ID = 362592,Unit ID = 805618,Date = Mar 12, 2017,Device = Android LGE LG-H990,OS version = 7.0 (API 24),App version = 1.0.0.56,Description = some description,Message = some message"; string[] contentArray = content.Split(','); // Case where […]
Excel通过电子邮件发送此button的范围
我有一个表单有2个button（更新和广告）（这里的代码是从其中之一）。 如果您填写表格并按下其中一个表格，则可以制作或更新其他表格中的logging。 我想有一个embedded在他们的电子邮件function，所以当你按他们也发送相同的信息在电子邮件。 我是VBA新手。 这是我从互联网上下载的工作手册，并根据需要进行了更改。 所以我不是这个代码的devise者，但我看到Set myCopy = inputWks.Range("OrderEntry")是我需要的数据。 如何将其粘贴到电子邮件的正文中？ Sub UpdateLogRecord() Dim historyWks As Worksheet Dim inputWks As Worksheet Dim lRec As Long Dim oCol As Long Dim lRecRow As Long Dim myCopy As Range Dim myTest As Range Dim lRsp As Long Set inputWks = Worksheets("Input") Set historyWks = Worksheets("Werknemers") oCol = 3 […]
EXCEL VBA隐藏表单和电子邮件问题
我想通过电子邮件发送一个Excel文件，其中包含一个用户隐藏的控件。 目前，点击button，它隐藏表格，并通过电子邮件发送VBA代码。 但是，有两个问题。 1）要取消隐藏这张表，我必须去VBA代码，直接窗口，并键入 对于表中的每个ws：ws.Visible = True：下一步 ..并进入。 有一个更好的方法来做到这一点，因为高级经理将执行和电子邮件报告。 2）通过电子邮件发送的文件，任何人都可以去VBA代码，并立即窗口…按照步骤，并取消隐藏标签。 如何使其永久隐藏在通过电子邮件发送的文件中而不影响源文件？ 这里是我用来隐藏它的代码： Dim sheet As Worksheet Set sheet = ActiveSheet ' this hides the sheet so that it can only be made visible using VBA sheet.Visible = xlSheetVeryHidden ActiveWorkbook.Sheets("Admin").Visible = xlSheetVeryHidden Worksheets("sheet1").Activate ActiveWorkbook.SaveCopyAs Filename:=ActiveWorkbook.Path & "\MyReport – " & Format(Date, "mm-dd-yyyy") & ".xlsm" '后面的代码电子邮件…
Excel – 如何通过域名对电子邮件地址列进行sorting？
MS Excel 我有一列电子邮件地址。 我需要根据@之后的所有内容对电子邮件az的列进行sorting。 （在域上） 我已经尝试过数据/文本到列/分隔符@但是，我只能得到拆分的域列表进行sorting。 我也试着把它拖到新的一栏： =MID(A1, FIND("@",A1, 1)+1, 255) 问题是，我只是得到一个我可以独立于实际地址sorting的域列表。 我知道我一定是做错了。 我拥有的： joeblo@somedomain.com bluewidget@hypothetical.net jonsmith@wonedomain.com quickfox@adoman.com lazydog@zdomain.fl.edu 我想要什么:(结果可以在另一列，或不，我不在乎。） quickfox@adoman.com bluewidget@hypothetical.net joeblo@somedomain.com jonsmith@wonedomain.com lazydog@zdomain.fl.edu 如何将整个电子邮件地址的垃圾分类结果放入另一列，或者根据@ ?????后的所有内容sorting在同一列中 （保留整个电子邮件地址，现在sorting） 预先感谢学习经验。
VBA导入电子邮件内容到Excel – 运行时错误9
我在我们的网站上有一个表格，它会生成一个如下所示的电子邮件： First Name: test Last Name: test Address1: test Address2: City: test State: CA Zip Code: 90032 Email: test@yahoo.com Telephone: Date of Birth: -Month- -Day- -Year- Marital Status: Purchase Month: April Purchase Day: -Day- Purchase Year: 2004 Purchase Place: test Purchase Place Other: Product type: test Other Product Type: Product size: test Other Product Size: […]
Excel VBAstring数组到Outlook电子邮件“收件人”字段
我正在尝试创build一个macros，它将从我的Excel工作表中取出一列电子邮件地址，并填充Outlook电子邮件中的“收件人”字段。 我有基本的工作，我能够创build一个新的Outlook电子邮件与我指定的各种字段值 – 但是，我不知道如何填充多个电子邮件地址到“收件人”字段，一个电子邮件。 到目前为止，我能够创build一个所有需要的电子邮件地址的数组，但不知道如何将数组值填充到Outlook的“收件人”字段。
