VBA Excel включает заявление IF в форме электронной почты

Question

VBA Excel включает заявление IF в форме электронной почты

Произошла такая же проблема, как попытка pip install ftputil с помощью ActivePython 2.7.8, ActivePython 3.4.1 и «запаса» Python 3.4.2 на 64-разрядной Windows 7 Enterprise. Все попытки потерпели неудачу с теми же ошибками, что и OP.

Работала над проблемой для Python 3.4.2 путем понижения до pip 1.2.1: easy_install pip==1.2.1 (см. https://stackoverflow.com/ а / 16370731/234235 ). Это же исправление также работало для ActivePython 2.7.8.

Ошибка, о которой сообщалось в марте 2013 года, по-прежнему открыта: https://github.com/pypa/pip/issues/829 .

1

excel vba

задан Pᴇʜ 16 January 2019 в 14:33

3 ответа

Другие вопросы по тегам:

excel vba

Похожие вопросы:

score 0 · Answer 1

При этом адреса обрезаются и сравниваются без учета регистра:

    .To = Worksheets("MyData").Range("R2").Value
    .CC = ""
    Dim check As Variant
    For Each check In Split("yyy@gmail.com; zzz@gmail.com; aaa@gmail.com", ";")
        If Not InStr(1, .To, Trim(check), vbTextCompare) > 0 Then _
            .CC = .CC & "; " & check
    Next check

score 0 · Answer 2

Вы имеете в виду, как это:

If Worksheets("MyData").Range("R2").Value2 = "yyy@gmail.com" Then
    .CC = "zzz@gmail.com; aaa@gmail.com"
Else
    .CC = "yyy@gmail.com; zzz@gmail.com; aaa@gmail.com"
End If

score 0 · Answer 3

Просто используйте Replace, чтобы удалить адрес из .To из вашего списка в .CC

.To = Worksheets("MyData").Range("R2").Value
.CC = Replace("yyy@gmail.com; zzz@gmail.com; aaa@gmail.com", .To, vbNullString)