title image


Smiley Variabler Emailempfänger in VBA
Hallo!



Ich verschicke EMail per VBA mit folgendem Code:



Private Sub CommandButton1_Click()

Dim adresse4 As String

Dim Betreff As String



'Die Variablen auslesen für Text und Emailempfänger

Betreff = Workbooks("Emailtest.xls").Sheets("Tabelle1").Range("A5").Value

Adresse1 = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A3").Value

Adresse2 = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A6").Value

Adresse3 = Workbooks("Emailtest.xls").Sheets("Tabelle2").Range("A9").Value





'Jetzt beginnt die Email

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)

'Im Auftrag von:

.SentOnBehalfOfName = "absender@absender.de"

'Empfänger

.To = Adresse1

'Betreff

.Subject = "Guckst du in EMail"

'Nachricht

.HTMLBody = "" & _

"Sehr geehrte Damen und Herren Â…Â…Â…" & _

""



'Lesebestätigung aus

.ReadReceiptRequested = False

'Dateianhang



.Send

End With

Set olApp = Nothing



Workbooks("Emailtest.xls").Sheets("Tabelle1").Range("A5:C19").Select

Selection.ClearContents



End Sub





Klappt auch alles wunderbar.

Aber:

Jetzt möchte ich den Emailempfänger etwas variabler gestalten.

Bisher versende ich ja immer nur an "Adresse1".

Allerdings möchte ich jetzt auch irgendwie auswählen können dass ich z.B.

An Adresse3 verschicken kann, oder an Adresse2 UND Adresse3..



Versteht ihr was ich meine??



Danke und Grüße

Matze

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: