title image


Smiley Re: AN BERND HELD !!!
Hallo Tobi !!Ich hab mal kurz was für Dich programmiert:Sub mail_senden() Dim olApp As Object Dim ende As Long Dim zeile As Long Dim txt As String ' Set olApp = CreateObject("Outlook.Application") ende = Application.Cells.SpecialCells(xlCellTypeLastCell).Row ' letzte Zeile ermitteln For zeile = 1 To ende If Cells(zeile, 8).Value ' --> Mail soll geschickt werden If InStr(txt, UCase(Cells(zeile, 9).Text)) = 0 Then ' --> Mail wurde noch nicht an email-Adresse geschickt txt = txt & UCase(Cells(zeile, 9).Text) ' email-Adresse merken With olApp.CreateItem(0) ' Neue Mail erstellen .Recipients.Add Cells(zeile, 9).Text ' Empfänger hinzufügen (Zelle Ix) .Subject = "Betreff" ' Betreff setzen .Body = Cells(zeile, 2).Text & vbCr & Cells(zeile, 3).Text & _ vbCr & Cells(zeile, 4).Text ' Zellen Bx bis Dx als Mailtext einfügen .ReadReceiptRequested = False ' --> keine Lesebestätigung senden .Send ' Mail senden End With End If End If Next zeile ' nächste Zeile Set olApp = NothingEnd SubCUMitch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: