title image


Smiley Re: Verknüpfung zu MS Outlook?
Hallo M., Private Sub Befehl6_Click() Dim outlAnw As Object Dim olAnw As Object Set outlAnw = CreateObject("Outlook.Application") Set olAnw = outlAnw.CreateItem(0) With olAnw .To = "Email@Adresse" 'Hier Emailadresse anpassen .Subject = "Test " & Date & Time .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren." .Attachments.Add "C:\test.xls", olByValue, 1, "NamederDatei" 'Nur wenn Datei angehängt! .CC = "Email@Adresse" 'Hier Emailadresse anpassen .BCC = "Email@Adresse" 'Hier Emailadresse anpassen .Display '.Send = Sendet sofort ohne Mail anzuzeigen! End With Set outlAnw = Nothing: Set olAnw = Nothing End SubGrußWalter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: