Excel VBA电子邮件单元格值

问题描述：

我有以下代码，其中的地址不起作用...我想知道如何从电池中选择电子邮件地址值，因为使用单元格（1,1）.value它似乎不适用于我的情况。Excel VBA电子邮件单元格值

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 Cells(i, "B").Value = "No" Then 
    Set Objoutlook = New Outlook.Application 
    Set Objectmail = Outlook.createitem(olmailitem) 
     With Objectmail 
     .To = Adresse & ";" & Adresse2 & ";" & Adresse3 
     .Subject = "Bobbi Brown| " & Project_number & " " & Project_name & "| Forecast due " & Project_due 
     .Body = "Dear All, " & Chr(10) & "I kindly remind you that forecasts for program " & Project_number & " " & Project_name & " are due " & Project_due & "." & Chr(10) & "Please enter your forecast " & "<a href=lien>here.</a>" & Chr(10) & "Best Regards," & Chr(10) & "Christian Chen" 
     .Send 
End with 
End If 
Next i 
Application.ScreenUpdating = True 
MsgBox "Your e-mails have been sent successfully", , "FIY" 
End Sub

答

你不使用它为您Adresse变量之前设置i，移动在循环这些变量的声明应该解决您的问题：

Sub email_missing_forecast() 

Application.ScreenUpdating = False 

'Déclaration des variables 
derniereligne = Range("B").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 
    Adresse3 = Cells(i, "F").Value 

    If Cells(i, "B").Value = "No" Then 
     Set Objoutlook = New Outlook.Application 
     Set Objectmail = Outlook.createitem(olmailitem) 
     With Objectmail 
      .To = Adresse & ";" & Adresse2 & ";" & Adresse3 
      .Subject = "Bobbi Brown| " & Project_number & " " & Project_name & "| Forecast due " & Project_due 
      .Body = "Dear All, " & Chr(10) & "I kindly remind you that forecasts for program " & Project_number & " " & Project_name & " are due " & Project_due & "." & Chr(10) & "Please enter your forecast " & "<a href=lien>here.</a>" & Chr(10) & "Best Regards," & Chr(10) & "Christian Chen" 
      .Send 
     End with 
    End If 
Next i 
Application.ScreenUpdating = True 
MsgBox "Your e-mails have been sent successfully", , "FIY" 
End Sub

Excel VBA电子邮件单元格值

相关推荐