Excel VBA电子邮件单元格值

我有以下代码的地址不工作…我想知道如何select电子邮件地址值出一个单元格，因为与单元格（1,1）.value它似乎不工作在我的案件。

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 

Answer 1

你没有设置i之前使用它的Adressevariables，移动这些variables的声明在你的循环应该解决你的问题：

 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