Во-первых, я попытался найти это в Google и сделал бесчисленные попытки заставить его работать, но не могу. Любая помощь будет принята с благодарностью.
Раскрывающийся список используется для заполнения электронной почты, выданной vba
код как показано ниже
Public sub Template
Dim olkApp As Object
Dim strSubject As String
Dim strTo As String
Dim strCc As String
Dim strBody As String
Dim strAtt As String
StrSubject = "Transfer Please"
StrBody = "general text" & (here is where I need the
selected dropdown imputed)
StrTo = (here I need the selected drop downs adjacent
referenced cell)
Strcc = ""
StrAtt = ""
Set olkApp = CreateObject("outlook.application")
With olkApp.createitem(0)
.To = strTo
.Cc = strCc
.Subject = strSubject
.body = strBody
.Display
End With
Set olk = Nothing
MsgBox "Email Issued"
End Sub
На моей последней попытке я попытался использовать
Dim TOffice As String
With worksheets("Sheet7").Shapes("ToBox).ControlFormat
TOffice = .List(.ListIndex)
End With
Затем ссылка на TOffice в StrBody
Q1 Я бы лучше использовал форму пользователя поверх FormControl
Q2 как мне ссылаться на выбранное значение элемента управления формы в тексте strbody.
Надеюсь, это достаточно ясно ...
Обновление
хорошо, все работает, спасибо. Но у меня есть 1 последний вопрос: StrTo - это адрес электронной почты, который указан рядом со списком, который используется для поля со списком. Как получить информацию о соседних ячейках из выбранного элемента в раскрывающемся списке?
Я использовал
Dim Cb As Object, Str As String
Set CB = ActiveSheet.Shapes("ToBox").OLEFormat.Object
Str = Cb.ListFillRange
Worksheets("Sheet7").Range("A1") = Str
End Sub
Это возвращает Sheet2! C2: C36
Как мне использовать это, чтобы получить выбранный выпадающий список, а затем изменить его на d вместо c