title image


Smiley Email per Excel mit variablem Text
Hallo!



ich versende über Excel mit folgendem Makro Emails:



Sub Mail_senden()

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)

'Im Auftrag von:

.SentOnBehalfOfName = "Test@test.de"

'Empfänger:

.Recipients.Add "Matze@test.de"

'Betreff:

.Subject = "Betreff"

'Nachricht:

.Body = "Hallo! Wie gehts es Ihnen?" & Chr(13) & Chr(13) _



'Lesebestätigung an/aus (True/False):

.ReadReceiptRequested = False

'Dateianhang:



.Send



End With

Set onApp = Nothing

End Sub



Klappt auch super.

Jetzt möchte ich aber noch etwas einbauen.

Und zwar soll derjenige der das Makro aktiviert zwischen 4 Standarttexten unterscheiden können die dann im "Body" auftauchen.



Wie kann ich das am einfachsten machen???



Danke und Grüße

Matze

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: