title image


Smiley Re: Email aus Excel herraus???
Versuch es mal damit ;-)



Sub Mail_senden()

A = Workbooks("Name der Datei in dessen Zelle die Werte stehen.xls").Sheets("Tabelle1").Range("A1").Value

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)

'Im Auftrag von:

'.SentOnBehalfOfName = "Test@test.de"

'Empfänger:

.Recipients.Add "empfänger@empfänger.de"

'Betreff:

.Subject = "Betreff"

'Nachricht:

.Body = "Liebe Kolleginnen und Kollegen " & A & " "





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

.ReadReceiptRequested = False





.Send



End With

Set onApp = Nothing

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: