Vielen Dank
Danke
Ausserdem verstehe ich auch nicht ganz, WAS du WOHIN geschickt haben willst. Sonst mach ich das gerne...
Gruss
Timo
Wie ist deine Mail?
Meine ist DanielCZ@web.de
hab die Makros aus dem Forum übernommen, z.B:
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter, v As Integer
Dim dest As Variant
Dim sdest As String
Set olApp = CreateObject("outlook.application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
sdest = ""
For iCounter = 1 To _
WorksheetFunction.CountA(Columns(1))
If sdest = "" Then
sdest = Cells(iCounter, 1).Value
Else
sdest = sdest & ";" & Cells(iCounter, 1).Value
End If
Next iCounter
.CC = sdest
.Subject = "kundeninfo"
.Body = ActiveCell.Offset(1, 2)
.Send
End With
Set olMailItm = Nothing
Set olApp = Nothing
End Sub
Bitte sag bir ob es möglich ist mehrere zusammenhängende Zellen einer Tabelle mit Formatierung über Makro im Textfeld und nicht als Anhang zu verschicken.Danke Daniel
Gruss
Timo
Ich danke dir da ich hier leider nicht in der Lage bin Mails nach aussen zu verschicken und bin daher bedacht dieses Problem zu lösen.
thx
Daniel
dann leg Dir doch bei gmx oder web eine private mail zu.
Gruß
Micha