Consenso all'uso dei cookies

SITO1 -- SITO2 -- Forum1 -- CercaGlobale -- Informativa su Cookie e Privacy


Valutazione discussione:
  • 0 voto(i) - 0 media
  • 1
  • 2
  • 3
  • 4
  • 5
Macro per spedire mail
#1
in Excell avevo queste macro che mi consentivano di:
1) creare una mail in html formattata "personalizzata" cioè con campi anagrafici presi dal file di excell stesso.
2) allegare un file pdf prenndendo il nome dal file stesso.


Codice:
MACRO 1
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
    Sub Main()
    Dim Iniz As String, myCol As Long, I As Long
    '
    Iniz = "A2"    '<<** La cella col primo nome da esaminare
    myCol = Range(Iniz).Column
    For I = Range(Iniz).Row To Range(Iniz).Offset(5000, 0).End(xlUp).Row
        [H1] = Cells(I, myCol + 6).Value
        [I1] = Cells(I, myCol + 2).Value
        [J1] = Cells(I, myCol + 1).Value
        [K1] = Cells(I, myCol).Value
        [L1] = Cells(I, myCol + 3).Value
        Call Invioemail
    Next I
    End Sub


Codice:
macro inviomail
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim Subj As String
Dim BodyText As String                      'FIN QUI E' SONO "DICHIARAZIONI"
'  (a)
Set OutApp = CreateObject("Outlook.

''  (b)

Nominat = [K1]    '<<** K1 contiene il nome file
OutFile = "C:\Users\miadirectory\
EmailAddr = Range("H1").Value      'INDIRIZZO EMAIL, PRESO DAlla casella DEL FOGLIO CORRENTE
Subj = "Mio oggetto mail"    ''<<** OGGETTO DELLA MAIL
'
Set OutMail = OutApp.CreateItem(0)     'DA QUI SI CREA E INVIA LA MAIL
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = Subj
.Attachments.Add OutFile
.body = olFormatHTML

.HTMLbody = "<html><body><div><p><span>TESTO MAIL" & [N1] & " "



'   '****
'.Display 'or use .send
.send


End With
'  (c)
Set OutMail = Nothing
'
'  (d)
Set OutApp = Nothing

    Application.Wait (Now + TimeValue("0:00:05"))
    Application.SendKeys "%a"
    Application.Wait (Now + TimeValue("0:00:04"))
'
End Sub

Come si può creare una macro che svolga la stessa funzione?
Teoricamente non servirebbe neppure chiamare Outlook in quanto lo stesso Libre è in grado di gestire l' SMTP. Ma come si può scrivere?
Cita messaggio
Grazie da:
#2
Stefseb,ascoltami non fissarti sulle macro.
Andiamo per ordine,hai provato,a copiarle su Gedit(potente),per poi inserirle nella "crea macro" di calc(antagonista di exel).
Vediamo che ti dà,al massimo ERROR,ma sappi che i programmatori usano propio dei correttori di linguaggio di programmazione,poi
i bug possono nascere per mille motivi.
Ora ascoltami per libre,vi è un sito dove sicuramente troverai quello che cerchi,casomai come "ESTENSIONI",fatti un bel giro:
http://templates.libreoffice.org/
Saluti da peppino.
Cita messaggio
Grazie da:
#3
@Peppo?????????????????
Stefseb, perdona il ritardo, la tua discussione mi è sfuggita...su forum openoffice trovi degli esperti di macro, prova a formulare la domanda in questa sezione dedicata a calc.
https://forum.openoffice.org/it/forum/viewforum.php?f=9
Cita messaggio
Grazie da:


Vai al forum:


Utenti che stanno guardando questa discussione: 1 Ospite(i)