Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Testo in TextBox nel corpo email

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Testo in TextBox nel corpo email

Postdi WCB » 11/04/19 10:51

Risultato Ctrl + g =
C:\Users\...\Desktop\.pdf
+#
C:\Users\...\Desktop\.pdf
+#
Visto che la mail viene Visualizzata (.Display) controlla visivamente se l'allegato risulta inserito? Se No, provando a inserirlo col comando Allega esso viene inserito?


l'email me la visualizza senza allegato, se provo ad aggiungerlo tramite il tasto "inserisci" di Outlook me lo inserisce senza problemi.
Il file viene salvato nel desktop.
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Sponsor
 

Re: Testo in TextBox nel corpo email

Postdi zsadist » 11/04/19 10:56

ho provato.. così funziona :)
devi inserire, per ogni evenienza, il riferimento a microsoft outlook xx.0 Object library
poi

.Attachments.add v (con la s)


e ricorda

file = Cells(3,1).Value & ".pdf"
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Testo in TextBox nel corpo email

Postdi Anthony47 » 11/04/19 10:57

Hai eliminato On Error Resume Next? Con che effetti?

Edit: ATTACHMENTS.ADD!
Bravo ZSadist, occhio di falco!
Avessi tolto On Error Resume Next te ne saresti accorto prima!
Avatar utente
Anthony47
Moderatore
 
Post: 17656
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Testo in TextBox nel corpo email

Postdi zsadist » 11/04/19 11:05

allora.. il tuo codice

Codice: Seleziona tutto
Private Sub CommandButton6_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim percorso As String
Dim file As String
Dim v As Variant
v = Application.GetSaveAsFilename(Range("A3").Value, "PDF Files (*.pdf), *.pdf")

If VarType(v) <> vbString Then Exit Sub
With ActiveSheet
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=v, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
    End With
percorso = "c:\users\....\desktop\" '<******* mi raccomando.. scrivilo correttamente
'file = Cells(1, 3).Value & ".pdf" '<******* no questo
file = Cells(3, 1).Value & ".pdf" ''<******* ma questo
v = percorso & file
Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next

With OutMail
  .To = "miaemail@email.com"
  .Subject = "PROVA"
  .HTMLBody = TextBox3.Text
  .Attachments.Add v
  .Display
  '.Send
 
End With
Set OutMail = Nothing
        Set OutApp = Nothing

End Sub


poi

Immagine

Immagine <----- beh.. la tua versione
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Testo in TextBox nel corpo email

Postdi zsadist » 11/04/19 11:07

Anthony47 ha scritto:Hai eliminato On Error Resume Next? Con che effetti?

Edit: ATTACHMENTS.ADD!
Bravo ZSadist, occhio di falco!
Avessi tolto On Error Resume Next te ne saresti accorto prima!


grazie, ma mi fai arrossire così :oops: :)
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: Testo in TextBox nel corpo email

Postdi WCB » 11/04/19 11:13

Maaaaa guarda un pò.... così semplice ma tanto complicato!! :evil:
A quanto pare avevo dimenticato di mettere questa maledetta "s" alla fine di Attachment.Add :lol:
zsadist...non so che dirti...GRAZIE INFINITISSIME 8)
Anthony47 grazie mille anche a te che ti sei cimentato nell'impresa :D
Ancora grazie e buona giornata ;)
"I computer sanno quando vai di fretta"
Excel 2016
Avatar utente
WCB
Utente Senior
 
Post: 101
Iscritto il: 09/01/19 17:52

Re: Testo in TextBox nel corpo email

Postdi zsadist » 11/04/19 11:14

alla prossima :D
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Testo in TextBox nel corpo email":


Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti