[英]If a cell in range of cells in Excel contains an email address (@ sign), I want to move whole cell text into a different column
[英]VBA Excel - If cell in one column contains email address and cell in another column is “SOLD” , send email
今天才刚刚开始尝试VBA。 创建Excel工作表以跟踪“已售出”,“待处理”和“丢失”,这将使销售人员可以单击一个按钮来一次将一组电子邮件发送到一个类别。 经过大量搜索后,我发现一些代码可以很好地通过检查一列以确保发送正确的地址来发送组电子邮件。 我找到了一些我认为会检查“工作状态”列的代码,以便仅选择“已售出”或任何其他形式的电子邮件。 我是一个笨拙的初学者,需要帮助。 这是直到我添加了-If Sh.Cells(Target.Row,7)=“ PENDING”然后-部分之前一直有效的代码。 任何帮助将不胜感激。 谢谢!
Private Sub CommandButton1_Click()
Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("Sales 2013").Range("E3:E500")
If cell.Value Like "?*@?*.?*" Then
If Sh.Cells(Target.Row, 7) = "PENDING" Then
strto = strto & cell.Value & ";"
End If
End If
Next cell
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "Anchor Sales"
.Bcc = strto
.Subject = "Enter subject here"
.Body = "" ' EMPTY FOR NOW
'USE THIS FOR ENTERING NAMES OF RECIPIENTS IN BODY TEXT "here"
'"Dear" & Cells(cell.Row, "A").Value _
& vbNewLine & vbNewLine & _
"Enter body text " & _
"here"
'You can add files also like this
'.Attachments.Add ("C:\test.txt")
'.Send 'Or use Display
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton2_Click()
End Sub
请帮忙!
当然,我希望每人发送一封邮件(如果收件人彼此之间不认识),但让我们来解决您的问题。
您只需要进行少量更改:
Private Sub CommandButton1_Click()
Dim cell As Range
Dim strto As String
For Each cell In ThisWorkbook.Sheets("Sales 2013").Range("E3:E500")
If cell.Value = "PENDING" Then strto = strto & cell.offset(0, 1).value & ";"
我不确定是否需要“ If cell.Value Like”部分? @? 。?*“”还是来自您发现的代码的复制粘贴...如果需要,则最后一行必须替换为
If cell.Value Like "?*@?*.?*" and cell.Value = "PENDING" Then strto = strto & cell.offset(0, 1).value & ";"
'in Offset(0,1) I assume the mailadress is in the cell next to the cell tested for "pending"
Next cell
If Len(strto) > 0 Then strto = Left(strto, Len(strto) - 1)
剩下的就随你了。
问题是由
If Sh.Cells(Target.Row, 7) = "PENDING" Then
因为您没有“ sh”的定义-但您也不需要它。
我希望这有帮助
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.