CC in Mail aus tabellenblatt ziehen

[KS20]

Hallo Gemeinde,

habe folgendes Problem.

habe mir ein kleines Makro gebaut, wo par klick eine Mail geöffnet wird.

in dieser sollen aus einer liste automatisch die Mail Adressen ins CC eingetragen werden.


.cc = Worksheets("Test").Range("g14")


so sieht meine Zeile aus, allerdings bleibt CC leer

Danke

[Käpt'n Blaubär]

Hallo,

habe mir ein kleines Makro gebaut, wo par klick eine Mail geöffnet wird.
in dieser sollen aus einer liste automatisch die Mail Adressen ins CC eingetragen werden.

.cc = Worksheets("Test").Range("g14")

so sieht meine Zeile aus, allerdings bleibt CC leer

wenn Du mir die Frage beantwortest, wie man aus nur einer bekannten Codezeile Schlüsse
auf die Lauffähigkeit des Gesamtmakros ziehen kann, will ich Dir gerne helfen.

[KS20]

UPPPPs^^

Code:

Sub info()
    Dim app   As Object
    Dim file  As String
    Dim isNew As Boolean
    file = ThisWorkbook.Name & ".pdf"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
    On Error Resume Next
    Set app = GetObject(, "Outlook.Application")
    If app Is Nothing Then
       Set app = CreateObject("Outlook.Application")
       isNew = True
    End If
    On Error Resume Next
 Set olApp = CreateObject("Outlook.Application")
 With olApp.CreateItem(0)
.display
.Attachments.Add Environ("TEMP") & "\" & file
.To = ""
[color=#ff3333].cc = Worksheets("Test").Range("g14")[/color]
.Subject = ""
.Body = ""
      
    End With
    If isNew Then app.Quit
End Sub

Danke

[schauan]

Hallöchen,

- steht im Blatt Test, G14 was drin --> nimm den Ausdruck mal in die Überwachung!
- manchmal hilft der Zusatz .value beim Bereich.

[KS20]

Guten Morgen,

danke für den Tipp mit .value hat funktioniert!

Wie ist der Hintergrund, warum funktioniert es ohne nicht?

Danke

MfG