Excel VBA电子邮件单元格值

我有以下地址不起作用的代码。。。我想知道如何从单元格中选择电子邮件地址值，因为对于单元格（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

子电子邮件\u缺少\u预测（）
Application.ScreenUpdating=False
“Déclaration des variables
derniereligne=范围（“B”）。结束（xlUp）。行
Adresse=单元格（i，“D”）.值
肾上腺2=细胞（即“E”）值
Adresse3=细胞（i，“F”）。值
项目编号=单元格（1，2）。数值
项目名称=单元格（2，2）.Value
项目到期日=单元格（3，2）.值
Lien=单元格（4，2）。值
Dim Objoutlook作为新Outlook.Application
Dim Objectmail
"条件,
对于i=6至derniereligne
如果单元格（i，“B”）.Value=“否”，则
Set Objoutlook=New Outlook.Application
设置Objectmail=Outlook.createitem（olmailitem）
使用Objectmail
.To=地址&“；”和地址2&“；”和地址3
.Subject=“Bobbi Brown”&项目编号和项目名称和预测到期日&项目到期日
.Body=“亲爱的各位，”&Chr（10）&“我谨提醒各位，对计划、项目编号、项目名称和项目的预测已到期”&Chr（10）&“请输入您的预测”&“&Chr（10）&“致以最良好的祝愿”&Chr（10）&“克里斯蒂安·陈”
.发送
以
如果结束
接下来我
Application.ScreenUpdating=True
MsgBox“您的电子邮件已成功发送”，“飞行”
端接头

在将

i

用于

adrese

变量之前，您没有设置它，在循环中移动这些变量的声明应该可以解决您的问题：

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

子电子邮件\u缺少\u预测（）
Application.ScreenUpdating=False
“Déclaration des variables
derniereligne=范围（“B”）。结束（xlUp）。行
项目编号=单元格（1，2）。数值
项目名称=单元格（2，2）.Value
项目到期日=单元格（3，2）.值
Lien=单元格（4，2）。值
Dim Objoutlook作为新Outlook.Application
Dim Objectmail
"条件,
对于i=6至derniereligne
Adresse=单元格（i，“D”）.值
肾上腺2=细胞（即“E”）值
Adresse3=细胞（i，“F”）。值
如果单元格（i，“B”）.Value=“否”，则
Set Objoutlook=New Outlook.Application
设置Objectmail=Outlook.createitem（olmailitem）
使用Objectmail
.To=地址&“；”和地址2&“；”和地址3
.Subject=“Bobbi Brown”&项目编号和项目名称和预测到期日&项目到期日
.Body=“亲爱的各位，”&Chr（10）&“我谨提醒各位，对计划、项目编号、项目名称和项目的预测已到期”&Chr（10）&“请输入您的预测”&“&Chr（10）&“致以最良好的祝愿”&Chr（10）&“克里斯蒂安·陈”
.发送
以
如果结束
接下来我
Application.ScreenUpdating=True
MsgBox“您的电子邮件已成功发送”，“飞行”
端接头

在将

i

用于

adrese

变量之前，您没有设置它，在循环中移动这些变量的声明应该可以解决您的问题：

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

子电子邮件\u缺少\u预测（）
Application.ScreenUpdating=False
“Déclaration des variables
derniereligne=范围（“B”）。结束（xlUp）。行
项目编号=单元格（1，2）。数值
项目名称=单元格（2，2）.Value
项目到期日=单元格（3，2）.值
Lien=单元格（4，2）。值
Dim Objoutlook作为新Outlook.Application
Dim Objectmail
"条件,
对于i=6至derniereligne
Adresse=单元格（i，“D”）.值
肾上腺2=细胞（即“E”）值
Adresse3=细胞（i，“F”）。值
如果单元格（i，“B”）.Value=“否”，则
Set Objoutlook=New Outlook.Application
设置Objectmail=Outlook.createitem（olmailitem）
使用Objectmail
.To=地址&“；”和地址2&“；”和地址3
.Subject=“Bobbi Brown”&项目编号和项目名称和预测到期日&项目到期日
.Body=“亲爱的各位，”&Chr（10）&“我谨提醒各位，对计划、项目编号、项目名称和项目的预测已到期”&Chr（10）&“请输入您的预测”&“&Chr（10）&“致以最良好的祝愿”&Chr（10）&“克里斯蒂安·陈”
.发送
以
如果结束
接下来我
Application.ScreenUpdating=True
MsgBox“您的电子邮件已成功发送”，“飞行”
端接头