Hallo,
Ich möchte aus einem UserForm heraus eine Email versenden und als Empfänger die Adresse aus einer Combo Box verwenden.
Folgenden Code zum Mailversand habe ich bereits:
'--------------------------------------------
Sub Mail_workbook_Outlook(sSubject As String, sBody As String)
'--------------------------------------------
Dim OutApp As Object
Dim OutMail As Object
Const sTo As String = "Test@Test.de"
Const sCC As String = ""
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sTo
.CC = sCC
.BCC = ""
.Subject = sSubject
.body = sBody
'.Attachments.Add
.Importance = 1
.Display
End With
'clean up
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Und für die Combo Box:
Private Sub UserForm_Activate()
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
With Me.ComboBox1
.AddItem "Test@Test.de"
.AddItem "Test2@Test.de"
.AddItem "Test3@Test.de"
.ListIndex = "0"
End With
End Sub
Kann mir jemand helfen?
Ich möchte aus einem UserForm heraus eine Email versenden und als Empfänger die Adresse aus einer Combo Box verwenden.
Folgenden Code zum Mailversand habe ich bereits:
'--------------------------------------------
Sub Mail_workbook_Outlook(sSubject As String, sBody As String)
'--------------------------------------------
Dim OutApp As Object
Dim OutMail As Object
Const sTo As String = "Test@Test.de"
Const sCC As String = ""
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sTo
.CC = sCC
.BCC = ""
.Subject = sSubject
.body = sBody
'.Attachments.Add
.Importance = 1
.Display
End With
'clean up
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Und für die Combo Box:
Private Sub UserForm_Activate()
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
With Me.ComboBox1
.AddItem "Test@Test.de"
.AddItem "Test2@Test.de"
.AddItem "Test3@Test.de"
.ListIndex = "0"
End With
End Sub
Kann mir jemand helfen?